* installing *source* package 'longitree' ... ** this is package 'longitree' version '1.0.2' ** package 'longitree' successfully unpacked and MD5 sums checked ** using staged installation ** libs using C compiler: 'gcc.exe (GCC) 14.3.0' using Fortran compiler: 'GNU Fortran (GCC) 14.3.0' make[1]: Entering directory '/d/temp/2026_09_09_01_50_00_18435/RtmpuSliNi/R.INSTALL1605837936e86/longitree/src' gcc -I"D:/RCompile/recent/R-4.6.1/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 getrngstate() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1412:2: 1412 | call cvdata(XYDATA,msize,colnum,Ksplit,levelcount,cvind,cvsize,iseed) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1413:2: 1413 | call putrngstate() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1414:2: 1414 | meangammacv(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1415:2: 1415 | meangammar2cv(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1416:2: 1416 | gammacvmat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1417:2: 1417 | gammar2cvmat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1418:2: 1418 | r2cvvalvec(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1419:2: 1419 | allfval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1420:2: 1420 | gammacv(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1421:2: 1421 | r2cvvalvec(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1422:2: 1422 | gammar2cv(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1423:2: 1423 | do cvloop = 1,Ksplit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1424:2: 1424 | traindatasize = ((sum(cvsize)-cvsize(cvloop))*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1425:2: 1425 | testdatasize = (cvsize(cvloop)*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1426:2: 1426 | allocate(traindata(traindatasize,colnum),testdata(testdatasize,colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1427:2: 1427 | allocate(nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1428:2: 1428 | call cvdatachoice(XYDATA,msize,colnum,Ksplit,levelcount,cvloop,cvind,cvsize,traindata,testdata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1429:2: 1429 | call cvtreegrowth(traindatasize,testdatasize,traindata,testdata,nodenummattest,fixweight,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1430:2: 1430 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,xydata,datatype,beta1,beta2,beta1len,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1431:2: 1431 | beta2len,nodenummat,allfval,prunind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1432:2: 1432 | if(alpha < 1d0 .and. gamma < 0d0 .and. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1433:2: 1433 | call R2CV(traindata,traindatasize,nodenummat,testdata,colnum,levelcount,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1434:2: 1434 | nodenummattest,testdatasize,maxdepth,r2cvval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1435:2: 1435 | r2cvvalvec(cvloop) = r2cvval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1436:2: 1436 | bestgammaval = -1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1437:2: 1437 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1438:2: 1438 | if(alpha == 1d0 .and. gamma >= 0d0 .and. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1439:2: 1439 | allocate(prunenodenummat(traindatasize,maxdepth),prunenodenummattest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1440:2: 1440 | call cvgammatreepruning(prunind,traindatasize,testdatasize,gamma,maxdepth,nodenummat,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1441:2: 1441 | nodenummattest,allfval,prunenodenummat,prunenodenummattest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1442:2: 1442 | call R2CV(traindata,traindatasize,prunenodenummat,testdata,colnum,levelcount,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1443:2: 1443 | prunenodenummattest,testdatasize,maxdepth,r2cvval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1444:2: 1444 | r2cvvalvec(cvloop) = r2cvval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1445:2: 1445 | deallocate(prunenodenummattest,prunenodenummat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1446:2: 1446 | bestgammaval = gamma | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1447:2: 1447 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1448:2: 1448 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1449:2: 1449 | call cvbesttreepruning(traindatasize,testdatasize,maxdepth,nodenummat,nodenummattest,allfval,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1450:2: 1450 | levelcount,colnum,traindata,testdata,allgammaval,gammacv,gammar2cv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1451:2: 1451 | gammacvmat(cvloop,:) = gammacv(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1452:2: 1452 | gammar2cvmat(cvloop,:) = gammar2cv(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1453:2: 1453 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1454:2: 1454 | deallocate(traindata,testdata,nodenummat,nodenummattest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1455:2: 1455 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1456:2: 1456 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1457:2: 1457 | do i = 1,size(allgammaval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1458:2: 1458 | meangammacv(i) = sum(gammacvmat(:,i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1459:2: 1459 | meangammar2cv(i) = sum(gammar2cvmat(:,i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1460:2: 1460 | if(meangammacv(i) > 0 .and. meangammar2cv(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1461:2: 1461 | meangammacv(i) = meangammacv(i) / dble(msize/levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1462:2: 1462 | meangammar2cv(i) = meangammar2cv(i) / dble(ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1463:2: 1463 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1464:2: 1464 | meangammacv(i) = -1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1465:2: 1465 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1466:2: 1466 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1467:2: 1467 | maxgammasub = maxval(meangammacv) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1468:2: 1468 | do i = 1,size(meangammacv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1469:2: 1469 | if(meangammacv(i) < maxgammasub .and. meangammacv(i) >= 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1470:2: 1470 | bestgammaval = allgammaval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1471:2: 1471 | maxgammasub = meangammacv(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1472:2: 1472 | r2cvvalmean = meangammar2cv(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1473:2: 1473 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1474:2: 1474 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1475:2: 1475 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1476:2: 1476 | r2cvvalmean=sum(r2cvvalvec)/dble(ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1477:2: 1477 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1480:2: 1480 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1481:2: 1481 | integer, intent(in) :: msize,colnum,Ksplit,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1482:2: 1482 | integer, intent(in) :: iseed | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1483:2: 1483 | real(8), intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1484:2: 1484 | integer, intent(out) :: cvind(msize), cvsize(Ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1485:2: 1485 | integer i,subnum, randval, cvsizecou(Ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1486:2: 1486 | integer, allocatable :: cvindsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1487:2: 1487 | real(8) randvalsub,ii | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1488:2: 1488 | subnum = msize/levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1489:2: 1489 | cvsize(:) = subnum/Ksplit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1490:2: 1490 | do i = 1,(subnum - sum(cvsize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1491:2: 1491 | cvsize(i) = cvsize(i) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1492:2: 1492 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1493:2: 1493 | allocate(cvindsub(subnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1494:2: 1494 | cvsizecou(:) = cvsize(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1495:2: 1495 | do i = 1,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1496:2: 1496 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1497:2: 1497 | call unifrand(randvalsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1498:2: 1498 | randval = int(randvalsub * dble(Ksplit)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1499:2: 1499 | if(cvsizecou(randval) > 0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1500:2: 1500 | cvsizecou(randval) = cvsizecou(randval) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1501:2: 1501 | cvindsub(i) = randval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1502:2: 1502 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1503:2: 1503 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1504:2: 1504 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1505:2: 1505 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1506:2: 1506 | do i = 1,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1507:2: 1507 | cvind((levelcount*(i-1)+1):(levelcount*i)) = cvindsub(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1508:2: 1508 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1511:2: 1511 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1512:2: 1512 | integer, intent(in) :: msize,colnum,Ksplit,testind,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1513:2: 1513 | real(8), intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1514:2: 1514 | integer, intent(in) :: cvind(msize),cvsize(Ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1515:2: 1515 | real(8), intent(out) :: traindata(((sum(cvsize)-cvsize(testind))*levelcount),colnum),testdata((cvsize(testind)*levelcount),colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1516:2: 1516 | integer i,jtrain,jtest,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1517:2: 1517 | subnum = msize/levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1518:2: 1518 | jtest = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1519:2: 1519 | jtrain = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1520:2: 1520 | do i = 1,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1521:2: 1521 | if(cvind(((i-1)*levelcount)+1) == testind) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1522:2: 1522 | testdata((levelcount*(jtest-1)+1):(levelcount*jtest),:) = xydata((levelcount*(i-1)+1):(levelcount*i),:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1523:2: 1523 | jtest = jtest + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1524:2: 1524 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1525:2: 1525 | traindata((levelcount*(jtrain-1)+1):(levelcount*jtrain),:) = xydata((levelcount*(i-1)+1):(levelcount*i),:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1526:2: 1526 | jtrain = jtrain + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1527:2: 1527 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1528:2: 1528 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1533:2: 1533 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1534:2: 1534 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,beta1len,beta2len,levelcount,minsplit,minbucket,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1535:2: 1535 | integer, intent(in) :: datatype(colnum-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1536:2: 1536 | real(8), intent(in) :: fixweight,alpha | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1537:2: 1537 | real(8), intent(in) :: traindata(traindatasize,colnum),beta1(beta1len),beta2(beta2len) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1538:2: 1538 | real(8), intent(in) :: xydata(msize,colnum),testdata(testdatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1539:2: 1539 | integer, intent(out) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1540:2: 1540 | integer,intent(out) :: prunind | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1541:2: 1541 | real(8),intent(out) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1542:2: 1542 | integer nodenum,hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,separatecou,separateint,sizenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1543:2: 1543 | integer sizel,sizer,sizeltest,sizertest,treeloop,stopcount,nodeloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1544:2: 1544 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1545:2: 1545 | real(8) splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1546:2: 1546 | real(8) fval(2),splitfval(2),splitmcppval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1547:2: 1547 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:),splitindvec(:),nodesizetest(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1548:2: 1548 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1549:2: 1549 | real(8), allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1550:2: 1550 | real(8), allocatable :: xynodedata(:,:),xynodedatatest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1551:2: 1551 | real(8), allocatable :: fval_cache(:,:), groupsum_cache(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1552:2: 1552 | integer, allocatable :: factor_idx(:), flat_idx_vec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1553:2: 1553 | integer :: dfvec_const(5), flat_idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1554:2: 1554 | real(8) :: splitgroupsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1555:2: 1555 | logical :: dfvec_set | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1556:2: 1556 | integer, allocatable :: w_subj_map(:), w_si_arr(:), w_subj_group(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1557:2: 1557 | real(8), allocatable :: w_ygroup(:), w_ytime(:), w_ysubject(:), w_ygrouptime(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1558:2: 1558 | real(8), allocatable :: w_ygroupcount(:), w_ytimecount(:), w_ysubjectcount(:), w_ygrouptimecount(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1559:2: 1559 | integer :: w_nsubjects, w_timecount, w_max_subj_id, gi, ti, si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1560:2: 1560 | real(8) :: ymean_const, sstotal_const, sstime_const | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1561:2: 1561 | real(8) :: ssgroup, ssgrouptime, sssubject, sserr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1562:2: 1562 | integer, allocatable :: ti_arr(:), factor_count(:), factor_offset(:), factor_obs(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1563:2: 1563 | real(8) :: total_y_sum, ygroup_mean1, ygroup_mean2, gt_mean | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1564:2: 1564 | real(8), allocatable :: w_ytime_sum(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1565:2: 1565 | integer :: obs_i, f, lo, hi, mid | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1566:2: 1566 | nodenummat(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1567:2: 1567 | nodenummat(:,1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1568:2: 1568 | nodenummattest(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1569:2: 1569 | nodenummattest(:,1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1570:2: 1570 | nodenum = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1571:2: 1571 | hierarchy = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1572:2: 1572 | allfval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1573:2: 1573 | splitmcp = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1574:2: 1574 | allocate(nodesize(2),nodesizetest(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1575:2: 1575 | prunind=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1576:2: 1576 | splitpval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1577:2: 1577 | call cvsplitcount(traindatasize, colnum-3, traindata, DATATYPE, splitnum, countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1578:2: 1578 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1579:2: 1579 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1580:2: 1580 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1581:2: 1581 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1582:2: 1582 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1583:2: 1583 | allocate(anovadata(traindatasize,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1584:2: 1584 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1585:2: 1585 | dfvec_set = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1586:2: 1586 | indcou = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1587:2: 1587 | w_timecount = nint(maxval(traindata(:,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1588:2: 1588 | w_max_subj_id = nint(maxval(traindata(:,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1589:2: 1589 | allocate(w_subj_map(w_max_subj_id)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1590:2: 1590 | w_subj_map(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1591:2: 1591 | do i = 1, traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1592:2: 1592 | w_subj_map(nint(traindata(i,2))) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1593:2: 1593 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1594:2: 1594 | w_nsubjects = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1595:2: 1595 | do i = 1, w_max_subj_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1596:2: 1596 | if (w_subj_map(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1597:2: 1597 | w_nsubjects = w_nsubjects + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1598:2: 1598 | w_subj_map(i) = w_nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1599:2: 1599 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1600:2: 1600 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1601:2: 1601 | allocate(w_si_arr(traindatasize), w_ygroup(2), w_ytime(w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1602:2: 1602 | allocate(w_ysubject(w_nsubjects), w_ygrouptime(2, w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1603:2: 1603 | allocate(w_ygroupcount(2), w_ytimecount(w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1604:2: 1604 | allocate(w_ysubjectcount(w_nsubjects), w_ygrouptimecount(2, w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1605:2: 1605 | allocate(w_subj_group(w_nsubjects)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1606:2: 1606 | allocate(ti_arr(traindatasize), w_ytime_sum(w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1607:2: 1607 | dfvec_const(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1608:2: 1608 | dfvec_const(2) = w_timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1609:2: 1609 | dfvec_const(3) = w_timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1610:2: 1610 | dfvec_const(4) = w_nsubjects - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1611:2: 1611 | dfvec_const(5) = (w_timecount - 1) * (w_nsubjects - 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1612:2: 1612 | dfvec_set = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1613:2: 1613 | ymean_const = sum(traindata(:,1)) / dble(traindatasize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1614:2: 1614 | sstotal_const = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1615:2: 1615 | w_ytime(:) = 0d0; w_ytimecount(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1616:2: 1616 | w_ysubject(:) = 0d0; w_ysubjectcount(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1617:2: 1617 | do i = 1, traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1618:2: 1618 | ti = nint(traindata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1619:2: 1619 | si = w_subj_map(nint(traindata(i,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1620:2: 1620 | w_si_arr(i) = si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1621:2: 1621 | ti_arr(i) = ti | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1622:2: 1622 | sstotal_const = sstotal_const + (traindata(i,1) - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1623:2: 1623 | w_ytime(ti) = w_ytime(ti) + traindata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1624:2: 1624 | w_ytimecount(ti) = w_ytimecount(ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1625:2: 1625 | w_ysubject(si) = w_ysubject(si) + traindata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1626:2: 1626 | w_ysubjectcount(si) = w_ysubjectcount(si) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1627:2: 1627 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1628:2: 1628 | w_ytime_sum = w_ytime | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1629:2: 1629 | total_y_sum = ymean_const * dble(traindatasize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1630:2: 1630 | w_ytime = w_ytime / w_ytimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1631:2: 1631 | w_ysubject = w_ysubject / w_ysubjectcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1632:2: 1632 | sstime_const = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1633:2: 1633 | do ti = 1, w_timecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1634:2: 1634 | sstime_const = sstime_const + w_ytimecount(ti) * (w_ytime(ti) - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1635:2: 1635 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1636:2: 1636 | do ind1=4,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1637:2: 1637 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1638:2: 1638 | allocate(factor_idx(traindatasize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1639:2: 1639 | call cvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1640:2: 1640 | call cvdataval(traindata(:,ind1),traindatasize,facvalout,countvec(ind1-3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1641:2: 1641 | do i = 1, traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1642:2: 1642 | lo = 1; hi = countvec(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1643:2: 1643 | do while (lo <= hi) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1644:2: 1644 | mid = (lo + hi) / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1645:2: 1645 | if (facvalout(mid) == traindata(i,ind1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1646:2: 1646 | factor_idx(i) = mid | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1647:2: 1647 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1648:2: 1648 | elseif (traindata(i,ind1) < facvalout(mid)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1649:2: 1649 | hi = mid - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1650:2: 1650 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1651:2: 1651 | lo = mid + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1652:2: 1652 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1653:2: 1653 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1654:2: 1654 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1655:2: 1655 | allocate(factor_count(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1656:2: 1656 | allocate(factor_offset(countvec(ind1-3)+1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1657:2: 1657 | allocate(factor_obs(traindatasize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1658:2: 1658 | factor_count(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1659:2: 1659 | do i = 1, traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1660:2: 1660 | f = factor_idx(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1661:2: 1661 | factor_count(f) = factor_count(f) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1662:2: 1662 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1663:2: 1663 | factor_offset(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1664:2: 1664 | do f = 2, countvec(ind1-3) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1665:2: 1665 | factor_offset(f) = factor_offset(f-1) + factor_count(f-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1666:2: 1666 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1667:2: 1667 | factor_count(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1668:2: 1668 | do i = 1, traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1669:2: 1669 | f = factor_idx(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1670:2: 1670 | factor_count(f) = factor_count(f) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1671:2: 1671 | factor_obs(factor_offset(f) + factor_count(f) - 1) = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1672:2: 1672 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1673:2: 1673 | if (datatype(ind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1674:2: 1674 | w_ygroup(1) = 0d0; w_ygroup(2) = total_y_sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1675:2: 1675 | w_ygroupcount(1) = 0d0; w_ygroupcount(2) = dble(traindatasize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1676:2: 1676 | w_ygrouptime(1,:) = 0d0; w_ygrouptime(2,:) = w_ytime_sum(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1677:2: 1677 | w_ygrouptimecount(1,:) = 0d0; w_ygrouptimecount(2,:) = w_ytimecount(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1678:2: 1678 | w_subj_group(:) = 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1679:2: 1679 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1680:2: 1680 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1681:2: 1681 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1682:2: 1682 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1683:2: 1683 | do j = factor_offset(ind2), factor_offset(ind2+1) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1684:2: 1684 | obs_i = factor_obs(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1685:2: 1685 | w_ygroup(2) = w_ygroup(2) - traindata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1686:2: 1686 | w_ygroup(1) = w_ygroup(1) + traindata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1687:2: 1687 | w_ygroupcount(2) = w_ygroupcount(2) - 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1688:2: 1688 | w_ygroupcount(1) = w_ygroupcount(1) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1689:2: 1689 | ti = ti_arr(obs_i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1690:2: 1690 | w_ygrouptime(2,ti) = w_ygrouptime(2,ti) - traindata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1691:2: 1691 | w_ygrouptime(1,ti) = w_ygrouptime(1,ti) + traindata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1692:2: 1692 | w_ygrouptimecount(2,ti) = w_ygrouptimecount(2,ti) - 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1693:2: 1693 | w_ygrouptimecount(1,ti) = w_ygrouptimecount(1,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1694:2: 1694 | w_subj_group(w_si_arr(obs_i)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1695:2: 1695 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1696:2: 1696 | ygroup_mean1 = w_ygroup(1) / w_ygroupcount(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1697:2: 1697 | ygroup_mean2 = w_ygroup(2) / w_ygroupcount(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1698:2: 1698 | ssgroup = w_ygroupcount(1) * (ygroup_mean1 - ymean_const)**2 + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1699:2: 1699 | w_ygroupcount(2) * (ygroup_mean2 - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1700:2: 1700 | ssgrouptime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1701:2: 1701 | do ti = 1, w_timecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1702:2: 1702 | gt_mean = w_ygrouptime(1,ti) / w_ygrouptimecount(1,ti) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1703:2: 1703 | ssgrouptime = ssgrouptime + w_ygrouptimecount(1,ti) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1704:2: 1704 | (gt_mean - ygroup_mean1 - w_ytime(ti) + ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1705:2: 1705 | gt_mean = w_ygrouptime(2,ti) / w_ygrouptimecount(2,ti) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1706:2: 1706 | ssgrouptime = ssgrouptime + w_ygrouptimecount(2,ti) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1707:2: 1707 | (gt_mean - ygroup_mean2 - w_ytime(ti) + ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1708:2: 1708 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1709:2: 1709 | sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1710:2: 1710 | do si = 1, w_nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1711:2: 1711 | if (w_subj_group(si) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1712:2: 1712 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean1)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1713:2: 1713 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1714:2: 1714 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean2)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1715:2: 1715 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1716:2: 1716 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1717:2: 1717 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1718:2: 1718 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1719:2: 1719 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1720:2: 1720 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1721:2: 1721 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1722:2: 1722 | groupsum_cache(indcou) = w_ygroupcount(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1723:2: 1723 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1724:2: 1724 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1725:2: 1725 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1726:2: 1726 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1727:2: 1727 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1728:2: 1728 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1729:2: 1729 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1730:2: 1730 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1731:2: 1731 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1732:2: 1732 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1733:2: 1733 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1734:2: 1734 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1735:2: 1735 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1736:2: 1736 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1737:2: 1737 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1738:2: 1738 | w_ygroup(:) = 0d0; w_ygroupcount(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1739:2: 1739 | w_ygrouptime(:,:) = 0d0; w_ygrouptimecount(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1740:2: 1740 | do i = 1, traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1741:2: 1741 | gi = splitindmat(ind2, factor_idx(i)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1742:2: 1742 | w_ygroup(gi) = w_ygroup(gi) + traindata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1743:2: 1743 | w_ygroupcount(gi) = w_ygroupcount(gi) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1744:2: 1744 | ti = ti_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1745:2: 1745 | w_ygrouptime(gi,ti) = w_ygrouptime(gi,ti) + traindata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1746:2: 1746 | w_ygrouptimecount(gi,ti) = w_ygrouptimecount(gi,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1747:2: 1747 | w_subj_group(w_si_arr(i)) = gi | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1748:2: 1748 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1749:2: 1749 | w_ygroup = w_ygroup / w_ygroupcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1750:2: 1750 | w_ygrouptime = w_ygrouptime / w_ygrouptimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1751:2: 1751 | ssgroup = w_ygroupcount(1) * (w_ygroup(1) - ymean_const)**2 + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1752:2: 1752 | w_ygroupcount(2) * (w_ygroup(2) - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1753:2: 1753 | ssgrouptime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1754:2: 1754 | do ti = 1, w_timecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1755:2: 1755 | do gi = 1, 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1756:2: 1756 | ssgrouptime = ssgrouptime + w_ygrouptimecount(gi,ti) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1757:2: 1757 | (w_ygrouptime(gi,ti) - w_ygroup(gi) - w_ytime(ti) + ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1758:2: 1758 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1759:2: 1759 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1760:2: 1760 | sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1761:2: 1761 | do si = 1, w_nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1762:2: 1762 | sssubject = sssubject + w_ysubjectcount(si) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1763:2: 1763 | (w_ysubject(si) - w_ygroup(w_subj_group(si)))**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1764:2: 1764 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1765:2: 1765 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1766:2: 1766 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1767:2: 1767 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1768:2: 1768 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1769:2: 1769 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1770:2: 1770 | groupsum_cache(indcou) = w_ygroupcount(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1771:2: 1771 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1772:2: 1772 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1773:2: 1773 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1774:2: 1774 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1775:2: 1775 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1776:2: 1776 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1777:2: 1777 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1778:2: 1778 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1779:2: 1779 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1780:2: 1780 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1781:2: 1781 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1782:2: 1782 | deallocate(splitindmat,facvalout,factor_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1783:2: 1783 | deallocate(factor_count, factor_offset, factor_obs) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1784:2: 1784 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1785:2: 1785 | deallocate(w_subj_map, w_si_arr, w_ygroup, w_ytime, w_ysubject, w_ygrouptime) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1786:2: 1786 | deallocate(w_ygroupcount, w_ytimecount, w_ysubjectcount, w_ygrouptimecount, w_subj_group) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1787:2: 1787 | deallocate(ti_arr, w_ytime_sum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1788:2: 1788 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1789:2: 1789 | allocate(flat_idx_vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1790:2: 1790 | do i = 1,11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1791:2: 1791 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1792:2: 1792 | wfvec(i) = wfmat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1793:2: 1793 | ind1vec(i) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1794:2: 1794 | ind2vec(i) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1795:2: 1795 | flat_idx_vec(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1796:2: 1796 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1797:2: 1797 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1798:2: 1798 | allocate(flat_idx_vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1799:2: 1799 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1800:2: 1800 | wfvec(1) = wfmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1801:2: 1801 | ind1vec(1) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1802:2: 1802 | ind2vec(1) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1803:2: 1803 | flat_idx_vec(1) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1804:2: 1804 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1805:2: 1805 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1806:2: 1806 | do weightind=0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1807:2: 1807 | flat_idx = flat_idx_vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1808:2: 1808 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1809:2: 1809 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1810:2: 1810 | weight = 0.1d0 * dble(weightind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1811:2: 1811 | call cvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1812:2: 1812 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1813:2: 1813 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1814:2: 1814 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1815:2: 1815 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1816:2: 1816 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1817:2: 1817 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1818:2: 1818 | splitind1 = ind1vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1819:2: 1819 | splitind2 = ind2vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1820:2: 1820 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1821:2: 1821 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1822:2: 1822 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1823:2: 1823 | if(splitpval==0d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1824:2: 1824 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1825:2: 1825 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1826:2: 1826 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1827:2: 1827 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1828:2: 1828 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1829:2: 1829 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1830:2: 1830 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1831:2: 1831 | call cvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1832:2: 1832 | call cvsplitdata(splitindmat(ind2,:),countvec(ind1-3),traindata,traindatasize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1833:2: 1833 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1834:2: 1834 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1835:2: 1835 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1836:2: 1836 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1837:2: 1837 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1838:2: 1838 | call cvdatasum(xydata(:,splitind1),msize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1839:2: 1839 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1840:2: 1840 | call cvdataval(xydata(:,splitind1),msize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1841:2: 1841 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1842:2: 1842 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1843:2: 1843 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1844:2: 1844 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1845:2: 1845 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1846:2: 1846 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1847:2: 1847 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1848:2: 1848 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1849:2: 1849 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1850:2: 1850 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1851:2: 1851 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1852:2: 1852 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1853:2: 1853 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1854:2: 1854 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1855:2: 1855 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1856:2: 1856 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1857:2: 1857 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1858:2: 1858 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1859:2: 1859 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1860:2: 1860 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1861:2: 1861 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1862:2: 1862 | flat_idx = flat_idx_vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1863:2: 1863 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1864:2: 1864 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1865:2: 1865 | weight = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1866:2: 1866 | call cvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1867:2: 1867 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1868:2: 1868 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1869:2: 1869 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1870:2: 1870 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1871:2: 1871 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1872:2: 1872 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1873:2: 1873 | splitind1 = ind1vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1874:2: 1874 | splitind2 = ind2vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1875:2: 1875 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1876:2: 1876 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1877:2: 1877 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1878:2: 1878 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1879:2: 1879 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1880:2: 1880 | call cvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1881:2: 1881 | call cvsplitdata(splitindmat(ind2,:),countvec(ind1-3),traindata,traindatasize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1882:2: 1882 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1883:2: 1883 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1884:2: 1884 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1885:2: 1885 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1886:2: 1886 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1887:2: 1887 | call cvdatasum(xydata(:,splitind1),msize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1888:2: 1888 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1889:2: 1889 | call cvdataval(xydata(:,splitind1),msize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1890:2: 1890 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1891:2: 1891 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1892:2: 1892 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1893:2: 1893 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1894:2: 1894 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1895:2: 1895 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1896:2: 1896 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1897:2: 1897 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1898:2: 1898 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1899:2: 1899 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1900:2: 1900 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1901:2: 1901 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1902:2: 1902 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1903:2: 1903 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1904:2: 1904 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1905:2: 1905 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1906:2: 1906 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1907:2: 1907 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1908:2: 1908 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1909:2: 1909 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1910:2: 1910 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1911:2: 1911 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1912:2: 1912 | weight = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1913:2: 1913 | call cvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1914:2: 1914 | splitmcppval(1) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1915:2: 1915 | weight = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1916:2: 1916 | call cvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1917:2: 1917 | splitmcppval(2) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1918:2: 1918 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1919:2: 1919 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1920:2: 1920 | if(splitmcp > alphamcp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1921:2: 1921 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1922:2: 1922 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1923:2: 1923 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1924:2: 1924 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1925:2: 1925 | if(splitpval > alpha) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1926:2: 1926 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1927:2: 1927 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1928:2: 1928 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1929:2: 1929 | if(.not. allocated(splitfacval)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1930:2: 1930 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1931:2: 1931 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1932:2: 1932 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1933:2: 1933 | if(splitgroupsum < dble(levelcount*minbucket) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1934:2: 1934 | (dble(traindatasize) - splitgroupsum) < dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1935:2: 1935 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1936:2: 1936 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1937:2: 1937 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1938:2: 1938 | deallocate(fval_cache, groupsum_cache, flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1939:2: 1939 | sizenum = size(splitfacval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1940:2: 1940 | call cvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1941:2: 1941 | hierarchy+1,nodenummat,sizel,sizer) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1942:2: 1942 | call cvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1943:2: 1943 | hierarchy+1,nodenummattest,sizeltest,sizertest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1944:2: 1944 | nodesize(1) = sizel | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1945:2: 1945 | nodesize(2) = sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1946:2: 1946 | nodesizetest(1) = sizeltest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1947:2: 1947 | nodesizetest(2) = sizertest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1948:2: 1948 | deallocate(anovadata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1949:2: 1949 | allfval(1) = splitwfval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1950:2: 1950 | do treeloop = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1951:2: 1951 | stopcount = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1952:2: 1952 | hierarchy = hierarchy + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1953:2: 1953 | do nodeloop = 1,(2**treeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1954:2: 1954 | if(allocated(wfmat) .or. allocated(indmat) .or. allocated(wfvec) .or. allocated(ind1vec) .or. allocated(ind2vec)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1955:2: 1955 | deallocate(wfmat,indmat,wfvec,ind1vec,ind2vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1956:2: 1956 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1957:2: 1957 | nodenum = nodenum + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1958:2: 1958 | splitpval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1959:2: 1959 | allocate(xynodedata(nodesize(nodeloop),colnum),anovadata(nodesize(nodeloop),4),xynodedatatest(nodesizetest(nodeloop),colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1960:2: 1960 | if(nodesize(nodeloop) < (levelcount*minsplit)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1961:2: 1961 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1962:2: 1962 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1963:2: 1963 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1964:2: 1964 | call cvnodedata(traindata,traindatasize,colnum,nodenum,hierarchy,maxdepth,nodenummat,nodesize(nodeloop),xynodedata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1965:2: 1965 | call cvnodedata(testdata,testdatasize,colnum,nodenum,hierarchy,maxdepth,nodenummattest,nodesizetest(nodeloop),xynodedatatest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1966:2: 1966 | call cvsplitcount(nodesize(nodeloop), colnum-3, xynodedata, DATATYPE, splitnum, countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1967:2: 1967 | if(sum(splitnum) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1968:2: 1968 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1969:2: 1969 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1970:2: 1970 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1971:2: 1971 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1972:2: 1972 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1973:2: 1973 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1974:2: 1974 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1975:2: 1975 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1976:2: 1976 | wfmat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1977:2: 1977 | indmat(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1978:2: 1978 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1979:2: 1979 | dfvec_set = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1980:2: 1980 | indcou = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1981:2: 1981 | w_timecount = nint(maxval(xynodedata(:,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1982:2: 1982 | w_max_subj_id = nint(maxval(xynodedata(:,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1983:2: 1983 | allocate(w_subj_map(w_max_subj_id)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1984:2: 1984 | w_subj_map(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1985:2: 1985 | do i = 1, nodesize(nodeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1986:2: 1986 | w_subj_map(nint(xynodedata(i,2))) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1987:2: 1987 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1988:2: 1988 | w_nsubjects = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1989:2: 1989 | do i = 1, w_max_subj_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1990:2: 1990 | if (w_subj_map(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1991:2: 1991 | w_nsubjects = w_nsubjects + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1992:2: 1992 | w_subj_map(i) = w_nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1993:2: 1993 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1994:2: 1994 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1995:2: 1995 | allocate(w_si_arr(nodesize(nodeloop)), w_ygroup(2), w_ytime(w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1996:2: 1996 | allocate(w_ysubject(w_nsubjects), w_ygrouptime(2, w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1997:2: 1997 | allocate(w_ygroupcount(2), w_ytimecount(w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1998:2: 1998 | allocate(w_ysubjectcount(w_nsubjects), w_ygrouptimecount(2, w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:1999:2: 1999 | allocate(w_subj_group(w_nsubjects)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2000:2: 2000 | allocate(ti_arr(nodesize(nodeloop)), w_ytime_sum(w_timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2001:2: 2001 | dfvec_const(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2002:2: 2002 | dfvec_const(2) = w_timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2003:2: 2003 | dfvec_const(3) = w_timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2004:2: 2004 | dfvec_const(4) = w_nsubjects - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2005:2: 2005 | dfvec_const(5) = (w_timecount - 1) * (w_nsubjects - 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2006:2: 2006 | dfvec_set = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2007:2: 2007 | ymean_const = sum(xynodedata(:,1)) / dble(nodesize(nodeloop)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2008:2: 2008 | sstotal_const = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2009:2: 2009 | w_ytime(:) = 0d0; w_ytimecount(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2010:2: 2010 | w_ysubject(:) = 0d0; w_ysubjectcount(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2011:2: 2011 | do i = 1, nodesize(nodeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2012:2: 2012 | ti = nint(xynodedata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2013:2: 2013 | si = w_subj_map(nint(xynodedata(i,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2014:2: 2014 | w_si_arr(i) = si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2015:2: 2015 | ti_arr(i) = ti | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2016:2: 2016 | sstotal_const = sstotal_const + (xynodedata(i,1) - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2017:2: 2017 | w_ytime(ti) = w_ytime(ti) + xynodedata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2018:2: 2018 | w_ytimecount(ti) = w_ytimecount(ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2019:2: 2019 | w_ysubject(si) = w_ysubject(si) + xynodedata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2020:2: 2020 | w_ysubjectcount(si) = w_ysubjectcount(si) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2021:2: 2021 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2022:2: 2022 | w_ytime_sum = w_ytime | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2023:2: 2023 | total_y_sum = ymean_const * dble(nodesize(nodeloop)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2024:2: 2024 | w_ytime = w_ytime / w_ytimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2025:2: 2025 | w_ysubject = w_ysubject / w_ysubjectcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2026:2: 2026 | sstime_const = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2027:2: 2027 | do ti = 1, w_timecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2028:2: 2028 | sstime_const = sstime_const + w_ytimecount(ti) * (w_ytime(ti) - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2029:2: 2029 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2030:2: 2030 | do ind1=4,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2031:2: 2031 | if(splitnum(ind1-3) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2032:2: 2032 | goto 2000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2033:2: 2033 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2034:2: 2034 | if(allocated(splitindmat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2035:2: 2035 | deallocate(splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2036:2: 2036 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2037:2: 2037 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2038:2: 2038 | if(allocated(facvalout)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2039:2: 2039 | deallocate(facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2040:2: 2040 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2041:2: 2041 | allocate(facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2042:2: 2042 | allocate(factor_idx(nodesize(nodeloop))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2043:2: 2043 | call cvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2044:2: 2044 | call cvdataval(xynodedata(:,ind1),nodesize(nodeloop),facvalout,countvec(ind1-3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2045:2: 2045 | do i = 1, nodesize(nodeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2046:2: 2046 | lo = 1; hi = countvec(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2047:2: 2047 | do while (lo <= hi) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2048:2: 2048 | mid = (lo + hi) / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2049:2: 2049 | if (facvalout(mid) == xynodedata(i,ind1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2050:2: 2050 | factor_idx(i) = mid | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2051:2: 2051 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2052:2: 2052 | elseif (xynodedata(i,ind1) < facvalout(mid)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2053:2: 2053 | hi = mid - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2054:2: 2054 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2055:2: 2055 | lo = mid + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2056:2: 2056 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2057:2: 2057 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2058:2: 2058 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2059:2: 2059 | allocate(factor_count(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2060:2: 2060 | allocate(factor_offset(countvec(ind1-3)+1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2061:2: 2061 | allocate(factor_obs(nodesize(nodeloop))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2062:2: 2062 | factor_count(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2063:2: 2063 | do i = 1, nodesize(nodeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2064:2: 2064 | f = factor_idx(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2065:2: 2065 | factor_count(f) = factor_count(f) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2066:2: 2066 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2067:2: 2067 | factor_offset(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2068:2: 2068 | do f = 2, countvec(ind1-3) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2069:2: 2069 | factor_offset(f) = factor_offset(f-1) + factor_count(f-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2070:2: 2070 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2071:2: 2071 | factor_count(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2072:2: 2072 | do i = 1, nodesize(nodeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2073:2: 2073 | f = factor_idx(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2074:2: 2074 | factor_count(f) = factor_count(f) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2075:2: 2075 | factor_obs(factor_offset(f) + factor_count(f) - 1) = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2076:2: 2076 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2077:2: 2077 | if (datatype(ind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2078:2: 2078 | w_ygroup(1) = 0d0; w_ygroup(2) = total_y_sum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2079:2: 2079 | w_ygroupcount(1) = 0d0; w_ygroupcount(2) = dble(nodesize(nodeloop)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2080:2: 2080 | w_ygrouptime(1,:) = 0d0; w_ygrouptime(2,:) = w_ytime_sum(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2081:2: 2081 | w_ygrouptimecount(1,:) = 0d0; w_ygrouptimecount(2,:) = w_ytimecount(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2082:2: 2082 | w_subj_group(:) = 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2083:2: 2083 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2084:2: 2084 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2085:2: 2085 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2086:2: 2086 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2087:2: 2087 | do j = factor_offset(ind2), factor_offset(ind2+1) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2088:2: 2088 | obs_i = factor_obs(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2089:2: 2089 | w_ygroup(2) = w_ygroup(2) - xynodedata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2090:2: 2090 | w_ygroup(1) = w_ygroup(1) + xynodedata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2091:2: 2091 | w_ygroupcount(2) = w_ygroupcount(2) - 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2092:2: 2092 | w_ygroupcount(1) = w_ygroupcount(1) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2093:2: 2093 | ti = ti_arr(obs_i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2094:2: 2094 | w_ygrouptime(2,ti) = w_ygrouptime(2,ti) - xynodedata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2095:2: 2095 | w_ygrouptime(1,ti) = w_ygrouptime(1,ti) + xynodedata(obs_i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2096:2: 2096 | w_ygrouptimecount(2,ti) = w_ygrouptimecount(2,ti) - 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2097:2: 2097 | w_ygrouptimecount(1,ti) = w_ygrouptimecount(1,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2098:2: 2098 | w_subj_group(w_si_arr(obs_i)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2099:2: 2099 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2100:2: 2100 | ygroup_mean1 = w_ygroup(1) / w_ygroupcount(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2101:2: 2101 | ygroup_mean2 = w_ygroup(2) / w_ygroupcount(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2102:2: 2102 | ssgroup = w_ygroupcount(1) * (ygroup_mean1 - ymean_const)**2 + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2103:2: 2103 | w_ygroupcount(2) * (ygroup_mean2 - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2104:2: 2104 | ssgrouptime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2105:2: 2105 | do ti = 1, w_timecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2106:2: 2106 | gt_mean = w_ygrouptime(1,ti) / w_ygrouptimecount(1,ti) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2107:2: 2107 | ssgrouptime = ssgrouptime + w_ygrouptimecount(1,ti) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2108:2: 2108 | (gt_mean - ygroup_mean1 - w_ytime(ti) + ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2109:2: 2109 | gt_mean = w_ygrouptime(2,ti) / w_ygrouptimecount(2,ti) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2110:2: 2110 | ssgrouptime = ssgrouptime + w_ygrouptimecount(2,ti) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2111:2: 2111 | (gt_mean - ygroup_mean2 - w_ytime(ti) + ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2112:2: 2112 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2113:2: 2113 | sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2114:2: 2114 | do si = 1, w_nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2115:2: 2115 | if (w_subj_group(si) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2116:2: 2116 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean1)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2117:2: 2117 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2118:2: 2118 | sssubject = sssubject + w_ysubjectcount(si) * (w_ysubject(si) - ygroup_mean2)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2119:2: 2119 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2120:2: 2120 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2121:2: 2121 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2122:2: 2122 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2123:2: 2123 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2124:2: 2124 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2125:2: 2125 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2126:2: 2126 | groupsum_cache(indcou) = w_ygroupcount(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2127:2: 2127 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2128:2: 2128 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2129:2: 2129 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2130:2: 2130 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2131:2: 2131 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2132:2: 2132 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2133:2: 2133 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2134:2: 2134 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2135:2: 2135 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2136:2: 2136 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2137:2: 2137 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2138:2: 2138 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2139:2: 2139 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2140:2: 2140 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2141:2: 2141 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2142:2: 2142 | w_ygroup(:) = 0d0; w_ygroupcount(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2143:2: 2143 | w_ygrouptime(:,:) = 0d0; w_ygrouptimecount(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2144:2: 2144 | do i = 1, nodesize(nodeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2145:2: 2145 | gi = splitindmat(ind2, factor_idx(i)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2146:2: 2146 | w_ygroup(gi) = w_ygroup(gi) + xynodedata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2147:2: 2147 | w_ygroupcount(gi) = w_ygroupcount(gi) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2148:2: 2148 | ti = ti_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2149:2: 2149 | w_ygrouptime(gi,ti) = w_ygrouptime(gi,ti) + xynodedata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2150:2: 2150 | w_ygrouptimecount(gi,ti) = w_ygrouptimecount(gi,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2151:2: 2151 | w_subj_group(w_si_arr(i)) = gi | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2152:2: 2152 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2153:2: 2153 | w_ygroup = w_ygroup / w_ygroupcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2154:2: 2154 | w_ygrouptime = w_ygrouptime / w_ygrouptimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2155:2: 2155 | ssgroup = w_ygroupcount(1) * (w_ygroup(1) - ymean_const)**2 + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2156:2: 2156 | w_ygroupcount(2) * (w_ygroup(2) - ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2157:2: 2157 | ssgrouptime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2158:2: 2158 | do ti = 1, w_timecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2159:2: 2159 | do gi = 1, 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2160:2: 2160 | ssgrouptime = ssgrouptime + w_ygrouptimecount(gi,ti) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2161:2: 2161 | (w_ygrouptime(gi,ti) - w_ygroup(gi) - w_ytime(ti) + ymean_const)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2162:2: 2162 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2163:2: 2163 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2164:2: 2164 | sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2165:2: 2165 | do si = 1, w_nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2166:2: 2166 | sssubject = sssubject + w_ysubjectcount(si) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2167:2: 2167 | (w_ysubject(si) - w_ygroup(w_subj_group(si)))**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2168:2: 2168 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2169:2: 2169 | sserr = sstotal_const - ssgroup - sstime_const - ssgrouptime - sssubject | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2170:2: 2170 | fval(1) = (ssgroup / dble(dfvec_const(1))) / (sssubject / dble(dfvec_const(4))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2171:2: 2171 | fval(2) = (ssgrouptime / dble(dfvec_const(3))) / (sserr / dble(dfvec_const(5))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2172:2: 2172 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2173:2: 2173 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2174:2: 2174 | groupsum_cache(indcou) = w_ygroupcount(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2175:2: 2175 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2176:2: 2176 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2177:2: 2177 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2178:2: 2178 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2179:2: 2179 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2180:2: 2180 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2181:2: 2181 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2182:2: 2182 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2183:2: 2183 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2184:2: 2184 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2185:2: 2185 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2186:2: 2186 | deallocate(splitindmat,facvalout,factor_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2187:2: 2187 | deallocate(factor_count, factor_offset, factor_obs) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2188:6: 2188 | 2000 continue | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2189:2: 2189 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2190:2: 2190 | deallocate(w_subj_map, w_si_arr, w_subj_group, w_ygroup, w_ytime, w_ysubject, w_ygrouptime) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2191:2: 2191 | deallocate(w_ygroupcount, w_ytimecount, w_ysubjectcount, w_ygrouptimecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2192:2: 2192 | deallocate(ti_arr, w_ytime_sum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2193:2: 2193 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2194:2: 2194 | allocate(flat_idx_vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2195:2: 2195 | do i = 1,11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2196:2: 2196 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2197:2: 2197 | wfvec(i) = wfmat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2198:2: 2198 | ind1vec(i) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2199:2: 2199 | ind2vec(i) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2200:2: 2200 | flat_idx_vec(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2201:2: 2201 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2202:2: 2202 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2203:2: 2203 | allocate(flat_idx_vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2204:2: 2204 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2205:2: 2205 | wfvec(1) = wfmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2206:2: 2206 | ind1vec(1) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2207:2: 2207 | ind2vec(1) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2208:2: 2208 | flat_idx_vec(1) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2209:2: 2209 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2210:2: 2210 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2211:2: 2211 | do weightind=0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2212:2: 2212 | flat_idx = flat_idx_vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2213:2: 2213 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2214:2: 2214 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2215:2: 2215 | weight = 0.1d0 * dble(weightind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2216:2: 2216 | call cvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2217:2: 2217 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2218:2: 2218 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2219:2: 2219 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2220:2: 2220 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2221:2: 2221 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2222:2: 2222 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2223:2: 2223 | splitind1 = ind1vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2224:2: 2224 | splitind2 = ind2vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2225:2: 2225 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2226:2: 2226 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2227:2: 2227 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2228:2: 2228 | if(splitpval==0d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2229:2: 2229 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2230:2: 2230 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2231:2: 2231 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2232:2: 2232 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2233:2: 2233 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2234:2: 2234 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2235:2: 2235 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2236:2: 2236 | call cvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2237:2: 2237 | call cvsplitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2238:2: 2238 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2239:2: 2239 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2240:2: 2240 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2241:2: 2241 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2242:2: 2242 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2243:2: 2243 | call cvdatasum(xydata(:,splitind1),msize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2244:2: 2244 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2245:2: 2245 | call cvdataval(xydata(:,splitind1),msize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2246:2: 2246 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2247:2: 2247 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2248:2: 2248 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2249:2: 2249 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2250:2: 2250 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2251:2: 2251 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2252:2: 2252 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2253:2: 2253 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2254:2: 2254 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2255:2: 2255 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2256:2: 2256 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2257:2: 2257 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2258:2: 2258 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2259:2: 2259 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2260:2: 2260 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2261:2: 2261 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2262:2: 2262 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2263:2: 2263 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2264:2: 2264 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2265:2: 2265 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2266:2: 2266 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2267:2: 2267 | flat_idx = flat_idx_vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2268:2: 2268 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2269:2: 2269 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2270:2: 2270 | weight = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2271:2: 2271 | call cvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2272:2: 2272 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2273:2: 2273 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2274:2: 2274 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2275:2: 2275 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2276:2: 2276 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2277:2: 2277 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2278:2: 2278 | splitind1 = ind1vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2279:2: 2279 | splitind2 = ind2vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2280:2: 2280 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2281:2: 2281 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2282:2: 2282 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2283:2: 2283 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2284:2: 2284 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2285:2: 2285 | call cvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2286:2: 2286 | call cvsplitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2287:2: 2287 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2288:2: 2288 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2289:2: 2289 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2290:2: 2290 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2291:2: 2291 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2292:2: 2292 | call cvdatasum(xydata(:,splitind1),msize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2293:2: 2293 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2294:2: 2294 | call cvdataval(xydata(:,splitind1),msize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2295:2: 2295 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2296:2: 2296 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2297:2: 2297 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2298:2: 2298 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2299:2: 2299 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2300:2: 2300 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2301:2: 2301 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2302:2: 2302 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2303:2: 2303 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2304:2: 2304 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2305:2: 2305 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2306:2: 2306 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2307:2: 2307 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2308:2: 2308 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2309:2: 2309 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2310:2: 2310 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2311:2: 2311 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2312:2: 2312 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2313:2: 2313 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2314:2: 2314 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2315:2: 2315 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2316:2: 2316 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2317:2: 2317 | weight = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2318:2: 2318 | call cvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2319:2: 2319 | splitmcppval(1) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2320:2: 2320 | weight = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2321:2: 2321 | call cvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2322:2: 2322 | splitmcppval(2) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2323:2: 2323 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2324:2: 2324 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2325:2: 2325 | if(splitmcp > alphamcp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2326:2: 2326 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2327:2: 2327 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2328:2: 2328 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2329:2: 2329 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2330:2: 2330 | if(splitpval > alpha) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2331:2: 2331 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2332:2: 2332 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2333:2: 2333 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2334:2: 2334 | if(.not. allocated(splitfacval)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2335:2: 2335 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2336:2: 2336 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2337:2: 2337 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2338:2: 2338 | if(splitgroupsum < dble(levelcount*minbucket) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2339:2: 2339 | (dble(nodesize(nodeloop)) - splitgroupsum) < dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2340:2: 2340 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2341:2: 2341 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2342:2: 2342 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2343:2: 2343 | deallocate(fval_cache, groupsum_cache, flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2344:2: 2344 | allfval(nodenum) = splitwfval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2345:2: 2345 | if(.not. allocated(nodesizesub)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2346:2: 2346 | allocate(nodesizesub(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2347:2: 2347 | nodesizesub(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2348:2: 2348 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2349:2: 2349 | if(.not. allocated(nodesizesubtest)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2350:2: 2350 | allocate(nodesizesubtest(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2351:2: 2351 | nodesizesubtest(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2352:2: 2352 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2353:2: 2353 | sizenum = size(splitfacval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2354:2: 2354 | call cvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2355:2: 2355 | hierarchy+1,nodenummat,sizel,sizer) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2356:2: 2356 | call cvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2357:2: 2357 | hierarchy+1,nodenummattest,sizeltest,sizertest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2358:2: 2358 | nodesizesub(2*nodeloop-1) = sizel | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2359:2: 2359 | nodesizesub(2*nodeloop) = sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2360:2: 2360 | nodesizesubtest(2*nodeloop-1) = sizeltest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2361:2: 2361 | nodesizesubtest(2*nodeloop) = sizertest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2362:6: 2362 | 2001 continue | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2363:2: 2363 | if(allocated(fval_cache)) deallocate(fval_cache) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2364:2: 2364 | if(allocated(groupsum_cache)) deallocate(groupsum_cache) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2365:2: 2365 | if(allocated(flat_idx_vec)) deallocate(flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2366:2: 2366 | if(allocated(factor_idx)) deallocate(factor_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2367:2: 2367 | if(allocated(w_subj_map)) deallocate(w_subj_map) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2368:2: 2368 | if(allocated(w_si_arr)) deallocate(w_si_arr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2369:2: 2369 | if(allocated(w_ygroup)) deallocate(w_ygroup) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2370:2: 2370 | if(allocated(w_ytime)) deallocate(w_ytime) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2371:2: 2371 | if(allocated(w_ysubject)) deallocate(w_ysubject) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2372:2: 2372 | if(allocated(w_ygrouptime)) deallocate(w_ygrouptime) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2373:2: 2373 | if(allocated(w_ygroupcount)) deallocate(w_ygroupcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2374:2: 2374 | if(allocated(w_ytimecount)) deallocate(w_ytimecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2375:2: 2375 | if(allocated(w_ysubjectcount)) deallocate(w_ysubjectcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2376:2: 2376 | if(allocated(w_ygrouptimecount)) deallocate(w_ygrouptimecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2377:2: 2377 | deallocate(anovadata,xynodedata,xynodedatatest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2378:2: 2378 | if(stopcount == 2**treeloop) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2379:2: 2379 | goto 2003 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2380:2: 2380 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2381:2: 2381 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2382:2: 2382 | deallocate(nodesize,nodesizetest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2383:2: 2383 | allocate(nodesize(2**hierarchy),nodesizetest(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2384:2: 2384 | nodesize(:) = nodesizesub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2385:2: 2385 | nodesizetest(:) = nodesizesubtest(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2386:2: 2386 | deallocate(nodesizesub,nodesizesubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2387:2: 2387 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2389:2: 2389 | deallocate(nodesize,nodesizetest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2393:2: 2393 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2394:2: 2394 | integer, intent(in) :: samplesize, pp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2395:2: 2395 | real(8), intent(in) :: sampledata(samplesize,pp+3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2396:2: 2396 | integer, intent(in) :: datatype(pp) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2397:2: 2397 | integer, intent(out) :: splitnum(pp), countvec(pp) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2398:2: 2398 | real(8) datasample(samplesize), sortsample(samplesize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2399:2: 2399 | integer i, j, count, facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2400:2: 2400 | do i = 4,pp+3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2401:2: 2401 | datasample = sampledata(:,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2402:2: 2402 | if(datatype(i-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2403:2: 2403 | call cvdatasum(sampledata(:,i),samplesize,facsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2404:2: 2404 | splitnum(i-3) = facsum - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2405:2: 2405 | elseif(datatype(i-3) == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2406:2: 2406 | call cvdatasum(sampledata(:,i),samplesize,facsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2407:2: 2407 | splitnum(i-3) = (2 ** (facsum-1)) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2408:2: 2408 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2409:2: 2409 | countvec(i-3) = facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2410:2: 2410 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2413:2: 2413 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2414:2: 2414 | integer,intent(in) :: msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2415:2: 2415 | real(8),intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2416:2: 2416 | real(8) datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2417:2: 2417 | integer, intent(out) :: facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2418:2: 2418 | integer count, j, i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2419:2: 2419 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2420:2: 2420 | call cvdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2421:2: 2421 | count = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2422:2: 2422 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2423:2: 2423 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2424:2: 2424 | count = count + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2425:2: 2425 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2426:2: 2426 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2427:2: 2427 | facsum = count | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2430:2: 2430 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2431:2: 2431 | integer,intent(in)::start,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2432:2: 2432 | real(8),intent(inout)::datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2433:2: 2433 | real(8) x,t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2434:2: 2434 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2435:2: 2435 | x = datavec((start+msize)/2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2436:2: 2436 | i = start | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2437:2: 2437 | j = msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2438:2: 2438 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2439:2: 2439 | do while (datavec(i) < x) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2440:2: 2440 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2441:2: 2441 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2442:2: 2442 | do while (x < datavec(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2443:2: 2443 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2444:2: 2444 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2445:2: 2445 | if (i >= j) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2446:2: 2446 | t = datavec(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2447:2: 2447 | datavec(i) = datavec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2448:2: 2448 | datavec(j) = t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2449:2: 2449 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2450:2: 2450 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2451:2: 2451 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2452:2: 2452 | if (start < i-1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2453:2: 2453 | call cvdatasort(datavec, start, i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2454:2: 2454 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2455:2: 2455 | if (j+1 < msize) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2456:2: 2456 | call cvdatasort(datavec, j+1, msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2457:2: 2457 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2458:2: 2458 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2461:2: 2461 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2462:2: 2462 | integer, intent(in) :: msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2463:2: 2463 | real(8), intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2464:2: 2464 | integer, intent(out) :: facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2465:2: 2465 | real(8), intent(out) :: facval(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2466:2: 2466 | real(8) :: datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2467:2: 2467 | integer :: j, k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2468:2: 2468 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2469:2: 2469 | call cvdatasort(datavecsub, 1, msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2470:2: 2470 | facval(1) = datavecsub(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2471:2: 2471 | k = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2472:2: 2472 | do j = 2, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2473:2: 2473 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2474:2: 2474 | k = k + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2475:2: 2475 | facval(k) = datavecsub(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2476:2: 2476 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2477:2: 2477 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2478:2: 2478 | facsum = k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2481:2: 2481 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2482:2: 2482 | integer, intent(in) :: varnum,datatype,msize,colnum,splitnum,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2483:2: 2483 | real(8), intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2484:2: 2484 | integer, intent(out) :: splitindmat(splitnum,countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2485:2: 2485 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2486:2: 2486 | if(datatype == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2487:2: 2487 | do i = 1,splitnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2488:2: 2488 | do j = 1,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2489:2: 2489 | if(i >= j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2490:2: 2490 | splitindmat(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2491:2: 2491 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2492:2: 2492 | splitindmat(i,j) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2493:2: 2493 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2494:2: 2494 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2495:2: 2495 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2496:2: 2496 | elseif(datatype == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2497:2: 2497 | idx = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2498:2: 2498 | do i = 0, 2**(countvec-1) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2499:2: 2499 | count_0 = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2500:2: 2500 | count_1 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2501:2: 2501 | splitindmat(idx, 1) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2502:2: 2502 | do j = 0, countvec - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2503:2: 2503 | if (iand(i, 2**j) /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2504:2: 2504 | splitindmat(idx, j+2) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2505:2: 2505 | count_1 = count_1 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2506:2: 2506 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2507:2: 2507 | splitindmat(idx, j+2) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2508:2: 2508 | count_0 = count_0 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2509:2: 2509 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2510:2: 2510 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2511:2: 2511 | if (count_0 > 0 .and. count_1 > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2512:2: 2512 | idx = idx + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2513:2: 2513 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2514:2: 2514 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2515:2: 2515 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2518:2: 2518 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2519:2: 2519 | integer, intent(in) :: countvec,msize,colnum,ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2520:2: 2520 | integer, intent(in) :: splitindmat(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2521:2: 2521 | real(8), intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2522:2: 2522 | real(8), intent(out) :: anovadata(msize,4),facvalout(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2523:2: 2523 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2524:2: 2524 | real(8) facval(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2525:2: 2525 | call cvdataval(xydata(:,ind1),msize,facval,countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2526:2: 2526 | facvalout = facval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2527:2: 2527 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2528:2: 2528 | do j = 1,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2529:2: 2529 | if(xydata(i,ind1) == facval(j)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2530:2: 2530 | anovadata(i,1:3) = xydata(i,1:3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2531:2: 2531 | anovadata(i,4) = splitindmat(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2532:2: 2532 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2533:2: 2533 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2534:2: 2534 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2535:2: 2535 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2538:2: 2538 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2539:2: 2539 | integer,intent(in) :: msize, pp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2540:2: 2540 | real(8), intent(in) :: anovadata(msize,4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2541:2: 2541 | real(8), intent(OUT) :: fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2542:2: 2542 | integer, intent(OUT) :: dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2543:2: 2543 | integer i, gi, ti, si, max_subj_id, timecount, nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2544:2: 2544 | real(8) ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2545:2: 2545 | real(8) ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2546:2: 2546 | integer, allocatable :: subj_map(:), si_arr(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2547:2: 2547 | real(8), allocatable :: ygroup(:), ytime(:), ysubject(:), ygrouptime(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2548:2: 2548 | real(8), allocatable :: ygroupcount(:), ytimecount(:), ysubjectcount(:), ygrouptimecount(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2549:2: 2549 | timecount = nint(maxval(anovadata(:,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2550:2: 2550 | max_subj_id = nint(maxval(anovadata(:,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2551:2: 2551 | allocate(subj_map(max_subj_id)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2552:2: 2552 | subj_map(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2553:2: 2553 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2554:2: 2554 | subj_map(nint(anovadata(i,2))) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2555:2: 2555 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2556:2: 2556 | nsubjects = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2557:2: 2557 | do i = 1, max_subj_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2558:2: 2558 | if (subj_map(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2559:2: 2559 | nsubjects = nsubjects + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2560:2: 2560 | subj_map(i) = nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2561:2: 2561 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2562:2: 2562 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2563:2: 2563 | dfvec(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2564:2: 2564 | dfvec(2) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2565:2: 2565 | dfvec(3) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2566:2: 2566 | dfvec(4) = nsubjects - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2567:2: 2567 | dfvec(5) = (timecount - 1) * (nsubjects - 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2568:2: 2568 | allocate(ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2, timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2569:2: 2569 | allocate(ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2, timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2570:2: 2570 | allocate(si_arr(msize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2571:2: 2571 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2572:2: 2572 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2573:2: 2573 | ymean = sum(anovadata(:,1)) / msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2574:2: 2574 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2575:2: 2575 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2576:2: 2576 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2577:2: 2577 | si = subj_map(nint(anovadata(i,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2578:2: 2578 | si_arr(i) = si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2579:2: 2579 | ygroup(gi) = ygroup(gi) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2580:2: 2580 | ygroupcount(gi) = ygroupcount(gi) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2581:2: 2581 | ytime(ti) = ytime(ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2582:2: 2582 | ytimecount(ti) = ytimecount(ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2583:2: 2583 | ysubject(si) = ysubject(si) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2584:2: 2584 | ysubjectcount(si) = ysubjectcount(si) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2585:2: 2585 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2586:2: 2586 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2587:2: 2587 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2588:2: 2588 | ygroup = ygroup / ygroupcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2589:2: 2589 | ytime = ytime / ytimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2590:2: 2590 | ysubject = ysubject / ysubjectcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2591:2: 2591 | ygrouptime = ygrouptime / ygrouptimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2592:2: 2592 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2593:2: 2593 | ssgrouptime = 0d0; sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2594:2: 2594 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2595:2: 2595 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2596:2: 2596 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2597:2: 2597 | si = si_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2598:2: 2598 | sstotal = sstotal + (anovadata(i,1) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2599:2: 2599 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2600:2: 2600 | sstime = sstime + (ytime(ti) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2601:2: 2601 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2602:2: 2602 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2603:2: 2603 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2604:2: 2604 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2605:2: 2605 | ms(1) = ssgroup / dfvec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2606:2: 2606 | ms(2) = sstime / dfvec(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2607:2: 2607 | ms(3) = ssgrouptime / dfvec(3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2608:2: 2608 | ms(4) = sssubject / dfvec(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2609:2: 2609 | ms(5) = sserr / dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2610:2: 2610 | fval(1) = ms(1) / ms(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2611:2: 2611 | fval(2) = ms(3) / ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2612:2: 2612 | deallocate(subj_map, si_arr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2613:2: 2613 | deallocate(ygroup, ytime, ysubject, ygrouptime) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2614:2: 2614 | deallocate(ygroupcount, ytimecount, ysubjectcount, ygrouptimecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2617:2: 2617 | subj_map, nsubjects, timecount, max_subj_id, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2618:2: 2618 | si_arr, ygroup, ytime, ysubject, ygrouptime, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2619:2: 2619 | ygroupcount, ytimecount, ysubjectcount, ygrouptimecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2620:2: 2620 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2621:2: 2621 | integer, intent(in) :: msize, nsubjects, timecount, max_subj_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2622:2: 2622 | real(8), intent(in) :: anovadata(msize,4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2623:2: 2623 | real(8), intent(out) :: fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2624:2: 2624 | integer, intent(out) :: dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2625:2: 2625 | integer, intent(in) :: subj_map(max_subj_id) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2626:2: 2626 | integer, intent(inout) :: si_arr(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2627:2: 2627 | real(8), intent(inout) :: ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2,timecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2628:2: 2628 | real(8), intent(inout) :: ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2,timecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2629:2: 2629 | integer :: i, gi, ti, si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2630:2: 2630 | real(8) :: ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr, ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2631:2: 2631 | dfvec(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2632:2: 2632 | dfvec(2) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2633:2: 2633 | dfvec(3) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2634:2: 2634 | dfvec(4) = nsubjects - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2635:2: 2635 | dfvec(5) = (timecount - 1) * (nsubjects - 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2636:2: 2636 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2637:2: 2637 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2638:2: 2638 | ymean = sum(anovadata(:,1)) / msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2639:2: 2639 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2640:2: 2640 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2641:2: 2641 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2642:2: 2642 | si = subj_map(nint(anovadata(i,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2643:2: 2643 | si_arr(i) = si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2644:2: 2644 | ygroup(gi) = ygroup(gi) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2645:2: 2645 | ygroupcount(gi) = ygroupcount(gi) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2646:2: 2646 | ytime(ti) = ytime(ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2647:2: 2647 | ytimecount(ti) = ytimecount(ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2648:2: 2648 | ysubject(si) = ysubject(si) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2649:2: 2649 | ysubjectcount(si) = ysubjectcount(si) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2650:2: 2650 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2651:2: 2651 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2652:2: 2652 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2653:2: 2653 | ygroup = ygroup / ygroupcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2654:2: 2654 | ytime = ytime / ytimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2655:2: 2655 | ysubject = ysubject / ysubjectcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2656:2: 2656 | ygrouptime = ygrouptime / ygrouptimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2657:2: 2657 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2658:2: 2658 | ssgrouptime = 0d0; sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2659:2: 2659 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2660:2: 2660 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2661:2: 2661 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2662:2: 2662 | si = si_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2663:2: 2663 | sstotal = sstotal + (anovadata(i,1) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2664:2: 2664 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2665:2: 2665 | sstime = sstime + (ytime(ti) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2666:2: 2666 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2667:2: 2667 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2668:2: 2668 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2669:2: 2669 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2670:2: 2670 | ms(1) = ssgroup / dfvec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2671:2: 2671 | ms(2) = sstime / dfvec(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2672:2: 2672 | ms(3) = ssgrouptime / dfvec(3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2673:2: 2673 | ms(4) = sssubject / dfvec(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2674:2: 2674 | ms(5) = sserr / dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2675:2: 2675 | fval(1) = ms(1) / ms(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2676:2: 2676 | fval(2) = ms(3) / ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2679:2: 2679 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2680:2: 2680 | integer, intent(in) :: dfvec(5),beta1len,beta2len | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2681:2: 2681 | real(8), intent(in) :: weight, fval(2),beta1(beta1len),beta2(beta2len) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2682:2: 2682 | real(8), intent(out) :: weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2683:2: 2683 | REAL(8) DFD1, DFN1, DFD2, DFN2, TESTVAL1, TESTVAL2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2684:2: 2684 | real(8) xb,eps,s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2685:2: 2685 | eps = 1d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2686:2: 2686 | DFD1 = dble(dfvec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2687:2: 2687 | DFN1 = dble(dfvec(4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2688:2: 2688 | DFD2 = dble(dfvec(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2689:2: 2689 | DFN2 = dble(dfvec(5)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2690:2: 2690 | TESTVAL1 = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2691:2: 2691 | TESTVAL2 = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2692:2: 2692 | if(abs(weight - 1d0) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2693:2: 2693 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2694:2: 2694 | call cvpfdist(DFD1,DFN1,0d0,TESTval1,eps,beta1(int(DFN1)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2695:2: 2695 | weightpval = 1.0d0 - s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2696:2: 2696 | goto 10000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2697:2: 2697 | elseif(abs(weight) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2698:2: 2698 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2699:2: 2699 | call cvpfdist(DFD2,DFN2,0d0,TESTval2,eps,beta2(int(DFN2)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2700:2: 2700 | weightpval = 1.0d0 - s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2701:2: 2701 | goto 10000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2702:2: 2702 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2703:2: 2703 | xb = (weight*TESTVAL1) + ((1d0-weight)*TESTVAL2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2704:2: 2704 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2705:2: 2705 | call cvdemethod(xb,weight,DFD1,DFN1,DFD2,DFN2,eps,beta1(int(DFN1)),beta2(int(DFN2)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2706:2: 2706 | weightpval = 1d0-s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2708:2: 2708 | weightpval = max(0d0, min(1d0, weightpval)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2711:2: 2711 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2712:2: 2712 | integer,parameter::kmin=3,kmax=14 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2713:2: 2713 | real(8),parameter::hr=6.d0, c0=0.01d0, pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2714:2: 2714 | real(8),intent(in)::a,b,eps,df1,df2,beta | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2715:2: 2715 | real(8),intent(out)::s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2716:2: 2716 | real(8) res,zval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2717:2: 2717 | real(8) inv_beta, df_ratio, df1_half, df12_half, form3, df1m2_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2719:2: 2719 | real(8) h,s0,xt,wt,t,as,shk,mba,pba,err,seps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2720:2: 2720 | inv_beta = 1d0 / beta | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2721:2: 2721 | df_ratio = df1/df2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2722:2: 2722 | df1_half = df1/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2723:2: 2723 | df12_half = (df1+df2)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2724:2: 2724 | form3 = df_ratio**df1_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2725:2: 2725 | df1m2_half = (df1-2d0)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2730:2: 2730 | zval = pba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2731:2: 2731 | res = inv_beta * form3 * (zval**df1m2_half) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2732:2: 2732 | ((1d0+(df_ratio*zval))**df12_half) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2737:2: 2737 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2738:2: 2738 | nc=2*nc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2739:2: 2739 | h=h*0.5d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2740:2: 2740 | do j=1,nc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2741:2: 2741 | t=dble(2*j-nc-1)*h | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2742:2: 2742 | shk=pi2*sinh(t) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2743:2: 2743 | xt=tanh(shk) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2744:2: 2744 | wt=pi2*cosh(t)*(1d0 - xt*xt) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2745:2: 2745 | zval = mba*xt+pba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2746:2: 2746 | res = inv_beta * form3 * (zval**df1m2_half) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2747:2: 2747 | ((1d0+(df_ratio*zval))**df12_half) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2748:2: 2748 | s=s+res*wt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2749:2: 2749 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2750:2: 2750 | s=s0*0.5d0+s*h*mba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2751:2: 2751 | as=abs(s); err=abs(s-s0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2752:2: 2752 | if(as.ge.1d0)err=err/as | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2753:2: 2753 | if(err.le.seps.and.l.ge.kmin)exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2754:2: 2754 | s0=s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2755:2: 2755 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2758:2: 2758 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2759:2: 2759 | real(8),intent(in)::xb,weight,df11,df12,df21,df22,eps,beta1,beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2761:2: 2761 | integer,parameter::kmin=3, kmax=8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2762:2: 2762 | real(8),parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2789:2: 2789 | if(err.le.0.000001d0 .and. l>6)exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2798:2: 2798 | integer,parameter::kmin=3,kmax=8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2799:2: 2799 | real(8),parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2805:2: 2805 | inv_weight = 1d0-weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2839:2: 2839 | s=s+res*wt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2850:2: 2850 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2851:2: 2851 | real(8),intent(in) :: z,v,weight,df11,df12,df21,df22,beta1,beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2852:2: 2852 | real(8),intent(out) :: res | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2853:2: 2853 | real(8) zval,form1,form2,form3,form4,form5,form6,form7,form8,form9 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2854:2: 2854 | real(8) inv_weight, inv_beta1, inv_beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2855:2: 2855 | real(8) df_ratio1, df_ratio2, df11_half, df21_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2856:2: 2856 | real(8) df12_sum_half, df22_sum_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2857:2: 2857 | inv_weight = 1d0 - weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2858:2: 2858 | inv_beta1 = 1d0 / beta1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2859:2: 2859 | inv_beta2 = 1d0 / beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2860:2: 2860 | df_ratio1 = df11/df12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2861:2: 2861 | df_ratio2 = df21/df22 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2862:2: 2862 | df11_half = df11/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2863:2: 2863 | df21_half = df21/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2864:2: 2864 | df12_sum_half = (df11+df12)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2865:2: 2865 | df22_sum_half = (df21+df22)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2866:2: 2866 | zval = (z-(inv_weight*v))/weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2867:2: 2867 | form1 = 1d0 / weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2868:2: 2868 | form2 = inv_beta1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2869:2: 2869 | form3 = df_ratio1**df11_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2870:2: 2870 | form4 = zval**((df11-2d0)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2871:2: 2871 | form5 = (1d0+(df_ratio1*zval))**df12_sum_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2872:2: 2872 | form6 = inv_beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2873:2: 2873 | form7 = df_ratio2**df21_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2874:2: 2874 | form8 = v**((df21-2d0)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2875:2: 2875 | form9 = (1d0+(df_ratio2*v))**df22_sum_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2876:2: 2876 | res = form1 * (form2 * form3 * form4 / form5) * (form6 * form7 * form8 / form9) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2879:2: 2879 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2880:2: 2880 | integer,intent(in) :: msize, facsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2881:2: 2881 | real(8),intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2882:2: 2882 | real(8) datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2883:2: 2883 | real(8), intent(out) :: facval(facsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2884:2: 2884 | integer count, i, j, k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2885:2: 2885 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2886:2: 2886 | call cvdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2887:2: 2887 | facval(1) = datavecsub(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2888:2: 2888 | k = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2889:2: 2889 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2890:2: 2890 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2891:2: 2891 | k = k + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2892:2: 2892 | facval(k) = datavecsub(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2893:2: 2893 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2894:2: 2894 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2898:2: 2898 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2899:2: 2899 | integer, intent(in) :: msize,colnum,sizenum,splitind1,nodenum,splitindvec(sizenum),hierarchy,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2900:2: 2900 | real(8), intent(in) :: xydata(msize,colnum),splitfacval(sizenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2901:2: 2901 | integer, intent(inout) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2902:2: 2902 | integer, intent(out) :: sizel,sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2903:2: 2903 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2904:2: 2904 | sizel=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2905:2: 2905 | sizer=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2906:2: 2906 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2907:2: 2907 | if(nodenummat(i,hierarchy-1) == (nodenum/2)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2908:2: 2908 | do j = 1,sizenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2909:2: 2909 | if(abs(xydata(i,splitind1) - splitfacval(j)) < (1.0d0*(10d0**(-10d0)))) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2910:2: 2910 | if(splitindvec(j) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2911:2: 2911 | nodenummat(i,hierarchy) = nodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2912:2: 2912 | sizel=sizel+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2913:2: 2913 | elseif(splitindvec(j) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2914:2: 2914 | nodenummat(i,hierarchy) = nodenum + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2915:2: 2915 | sizer=sizer+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2916:2: 2916 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2917:2: 2917 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2918:2: 2918 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2919:2: 2919 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2920:2: 2920 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2923:2: 2923 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2924:2: 2924 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2925:2: 2925 | real(8), intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2926:2: 2926 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2927:2: 2927 | real(8), intent(out) :: xynodedata(nodesize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2928:2: 2928 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2929:2: 2929 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2930:2: 2930 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2931:2: 2931 | if(nodenummat(i,hierarchy) == nodenum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2932:2: 2932 | xynodedata(j,:) = xydata(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2933:2: 2933 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2934:2: 2934 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2935:2: 2935 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2939:2: 2939 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2940:2: 2940 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2941:2: 2941 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2942:2: 2942 | real(8), intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2943:2: 2943 | real(8), intent(out) :: r2cvval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2944:2: 2944 | real(8), allocatable :: timepred(:,:),r2cvnumsub(:,:), timepredcou(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2945:2: 2945 | real(8) r2cvnum,r2cvden,ymean | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2946:2: 2946 | integer i,j,k,l,maxactive_depth,nidx,tidx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2947:2: 2947 | allocate(timepred(((2**maxdepth)-1),levelcount),r2cvnumsub(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2948:2: 2948 | allocate(timepredcou(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2949:2: 2949 | timepred(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2950:2: 2950 | r2cvnumsub(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2951:2: 2951 | timepredcou(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2952:2: 2952 | maxactive_depth = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2953:2: 2953 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2954:2: 2954 | if(sum(nodenummat(:,i)) == 0) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2955:2: 2955 | maxactive_depth = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2956:2: 2956 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2957:2: 2957 | do j = 1,traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2958:2: 2958 | tidx = int(traindata(j,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2959:2: 2959 | do i = maxactive_depth, 1, -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2960:2: 2960 | nidx = nodenummat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2961:2: 2961 | if(nidx > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2962:2: 2962 | if(i == maxactive_depth .or. nodenummat(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2963:2: 2963 | timepred(nidx,tidx) = timepred(nidx,tidx) + traindata(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2964:2: 2964 | timepredcou(nidx,tidx) = timepredcou(nidx,tidx) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2965:2: 2965 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2966:2: 2966 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2967:2: 2967 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2968:2: 2968 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2969:2: 2969 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2970:2: 2970 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2971:2: 2971 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2972:2: 2972 | do j = 1,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2973:2: 2973 | timepred(i,j) = timepred(i,j)/timepredcou(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2974:2: 2974 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2975:2: 2975 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2976:2: 2976 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2977:2: 2977 | ymean = sum(testdata(:,1))/dble(testdatasize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2978:2: 2978 | r2cvnum = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2979:2: 2979 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2980:2: 2980 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2981:2: 2981 | do j=1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2982:2: 2982 | if(2**(j-1) <= i .and. i < 2**j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2983:2: 2983 | k = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2984:2: 2984 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2985:2: 2985 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2986:2: 2986 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2987:2: 2987 | do l = 1,testdatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2988:2: 2988 | if(nodenummattest(l,k) == i) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2989:2: 2989 | r2cvnumsub(i,int(testdata(l,3))) = r2cvnumsub(i,int(testdata(l,3))) + ((testdata(l,1) - timepred(i,int(testdata(l,3))))**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2990:2: 2990 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2991:2: 2991 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2992:2: 2992 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2993:2: 2993 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2994:2: 2994 | r2cvnum = sum(r2cvnumsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2995:2: 2995 | r2cvden = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2996:2: 2996 | do i = 1,testdatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2997:2: 2997 | r2cvden = r2cvden + ((testdata(i,1) - ymean) * (testdata(i,1) - ymean)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2998:2: 2998 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:2999:2: 2999 | r2cvval = 1d0-(r2cvnum/r2cvden) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3000:2: 3000 | deallocate(timepred,r2cvnumsub,timepredcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3004:2: 3004 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3005:2: 3005 | integer,intent(in) :: prunind,testdatasize,maxdepth,traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3006:2: 3006 | integer,intent(in) :: nodenummattest(testdatasize,maxdepth),nodenummat(traindatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3007:2: 3007 | real(8),intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3008:2: 3008 | real(8),intent(in) :: gamma | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3009:2: 3009 | integer,intent(out) :: prunenodenummat(traindatasize,maxdepth),prunenodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3010:2: 3010 | real(8) gammavec((2**(maxdepth-1))-1),allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3011:2: 3011 | real(8) minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3012:2: 3012 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3013:2: 3013 | integer nottnodeval,allnodenum,minghnum,prunloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3014:2: 3014 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:),nodenummatnewtest(:,:),nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3015:2: 3015 | if(prunind==1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3016:2: 3016 | prunenodenummattest(:,:) = nodenummattest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3017:2: 3017 | prunenodenummat(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3018:2: 3018 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3019:2: 3019 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3020:2: 3020 | gammavec(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3021:2: 3021 | call cvgterminalnodecount(nodenummat,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3022:2: 3022 | call cvgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3023:2: 3023 | gammavec(1) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3024:2: 3024 | if(gammavec(1) > gamma) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3025:2: 3025 | prunenodenummattest(:,:) = nodenummattest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3026:2: 3026 | prunenodenummat(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3027:2: 3027 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3028:2: 3028 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3029:2: 3029 | allocate(nodenummatnew(traindatasize,maxdepth),nodenummatnewsub(traindatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3030:2: 3030 | allocate(nodenummatnewtest(testdatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3031:2: 3031 | call cvgpruntreemat(nodenummat,maxdepth,traindatasize,minghnum,allfval,allfvalnew,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3032:2: 3032 | call cvgpruntreemattest(nodenummattest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3033:2: 3033 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3034:2: 3034 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3035:2: 3035 | deallocate(nodenummatnewsub,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3036:2: 3036 | do prunloop = 2,((2**(maxdepth-1))-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3037:2: 3037 | allfvalnewsub(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3038:2: 3038 | call cvgterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3039:2: 3039 | if(allnodenum == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3040:2: 3040 | prunenodenummattest(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3041:2: 3041 | prunenodenummattest(:,1) = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3042:2: 3042 | prunenodenummat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3043:2: 3043 | prunenodenummat(:,1) = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3044:2: 3044 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3045:2: 3045 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3046:2: 3046 | call cvgweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3047:2: 3047 | gammavec(prunloop) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3048:2: 3048 | if(gammavec(prunloop-1) < gamma .and. gammavec(prunloop) > gamma) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3049:2: 3049 | prunenodenummattest(:,:) = nodenummatnewtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3050:2: 3050 | prunenodenummat(:,:) = nodenummatnew(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3051:2: 3051 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3052:2: 3052 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3053:2: 3053 | allocate(nodenummatnewsub(traindatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3054:2: 3054 | call cvgpruntreemat(nodenummatnew,maxdepth,traindatasize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3055:2: 3055 | call cvgpruntreemattest(nodenummatnewtest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3056:2: 3056 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3057:2: 3057 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3058:2: 3058 | allfvalnew(:) = allfvalnewsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3059:2: 3059 | deallocate(nodenummatnewsub,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3060:2: 3060 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3064:2: 3064 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3065:2: 3065 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3066:2: 3066 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3067:2: 3067 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3068:2: 3068 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3069:2: 3069 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3070:2: 3070 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3071:2: 3071 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3072:2: 3072 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3073:2: 3073 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3074:2: 3074 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3075:2: 3075 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3076:2: 3076 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3077:2: 3077 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3078:2: 3078 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3079:2: 3079 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3080:2: 3080 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3081:2: 3081 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3082:2: 3082 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3083:2: 3083 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3084:2: 3084 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3085:2: 3085 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3086:2: 3086 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3087:2: 3087 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3088:2: 3088 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3089:2: 3089 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3090:2: 3090 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3091:2: 3091 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3092:2: 3092 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3095:2: 3095 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3096:2: 3096 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3097:2: 3097 | real(8) allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3098:2: 3098 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3099:2: 3099 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3100:2: 3100 | real(8), intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3101:2: 3101 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3102:2: 3102 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3103:2: 3103 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3104:2: 3104 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3105:2: 3105 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3106:2: 3106 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3107:2: 3107 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3108:2: 3108 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3109:2: 3109 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3110:2: 3110 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3111:2: 3111 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3112:2: 3112 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3113:2: 3113 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3114:2: 3114 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3115:2: 3115 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3116:2: 3116 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3117:2: 3117 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3118:2: 3118 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3119:2: 3119 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3120:2: 3120 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3121:2: 3121 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3122:2: 3122 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3123:2: 3123 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3124:2: 3124 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3125:2: 3125 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3126:2: 3126 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3127:2: 3127 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3128:2: 3128 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3129:2: 3129 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3130:2: 3130 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3131:2: 3131 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3132:2: 3132 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3133:2: 3133 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3134:2: 3134 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3135:2: 3135 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3136:2: 3136 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3137:2: 3137 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3140:2: 3140 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3141:2: 3141 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3142:2: 3142 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3143:2: 3143 | real(8), intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3144:2: 3144 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3145:2: 3145 | real(8), intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3146:2: 3146 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3147:2: 3147 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3148:2: 3148 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3149:2: 3149 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3150:2: 3150 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3151:2: 3151 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3152:2: 3152 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3153:2: 3153 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3154:2: 3154 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3155:2: 3155 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3156:2: 3156 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3157:2: 3157 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3158:2: 3158 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3159:2: 3159 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3160:2: 3160 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3161:2: 3161 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3162:2: 3162 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3163:2: 3163 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3164:2: 3164 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3165:2: 3165 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3166:2: 3166 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3167:2: 3167 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3170:2: 3170 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3171:2: 3171 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3172:2: 3172 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3173:2: 3173 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3174:2: 3174 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3175:2: 3175 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3176:2: 3176 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3177:2: 3177 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3178:2: 3178 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3179:2: 3179 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3180:2: 3180 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3181:2: 3181 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3182:2: 3182 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3183:2: 3183 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3184:2: 3184 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3185:2: 3185 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3186:2: 3186 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3187:2: 3187 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3188:2: 3188 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3192:2: 3192 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3193:2: 3193 | integer, intent(in) :: maxdepth,levelcount,traindatasize,colnum,testdatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3194:2: 3194 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3195:2: 3195 | real(8), intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3196:2: 3196 | real(8), intent(in) :: allfval((2**maxdepth)-1),allgammaval((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3197:2: 3197 | real(8), intent(out) :: gammacv((2**(maxdepth-1))-1),gammar2cv((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3198:2: 3198 | real(8) allgammavaltrain((2**(maxdepth-1))-1),losspredsumvec((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3199:2: 3199 | real(8) allfvalnew((2**maxdepth)-1),r2cvvec((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3200:2: 3200 | real(8) losspredsum,minghval,r2cvval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3201:2: 3201 | integer cvprunloop,minghnum,allnodenum,nottnodeval,i,j,k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3202:2: 3202 | integer nottnodevec((2**maxdepth)-1),ncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3203:2: 3203 | integer :: nodenummatnew(traindatasize,maxdepth),nodenummatnewtest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3204:2: 3204 | integer :: indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3205:2: 3205 | allgammavaltrain(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3206:2: 3206 | gammacv(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3207:2: 3207 | losspredsumvec(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3208:2: 3208 | gammar2cv(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3209:2: 3209 | r2cvvec(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3210:2: 3210 | call cvlosspredict(traindata,traindatasize,nodenummat,testdata,colnum,levelcount,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3211:2: 3211 | nodenummattest,testdatasize,maxdepth,losspredsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3212:2: 3212 | losspredsumvec(1) = losspredsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3213:2: 3213 | call R2CV(traindata,traindatasize,nodenummat,testdata,colnum,levelcount,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3214:2: 3214 | nodenummattest,testdatasize,maxdepth,r2cvval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3215:2: 3215 | r2cvvec(1) = r2cvval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3216:2: 3216 | allfvalnew(:) = allfval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3217:2: 3217 | nodenummatnew(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3218:2: 3218 | nodenummatnewtest(:,:) = nodenummattest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3219:2: 3219 | do cvprunloop = 1,((2**(maxdepth-1))-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3220:2: 3220 | call cvbestterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3221:2: 3221 | if(allnodenum == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3222:2: 3222 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3223:2: 3223 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3224:2: 3224 | call cvbestweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3225:2: 3225 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3226:2: 3226 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3227:2: 3227 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3228:2: 3228 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3229:2: 3229 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3230:2: 3230 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3231:2: 3231 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3232:2: 3232 | do i = 1,traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3233:2: 3233 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3234:2: 3234 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3235:2: 3235 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3236:2: 3236 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3237:2: 3237 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3238:2: 3238 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3239:2: 3239 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3240:2: 3240 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3241:2: 3241 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3242:2: 3242 | do i = 1,testdatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3243:2: 3243 | if(nodenummatnewtest(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3244:2: 3244 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3245:2: 3245 | nodenummatnewtest(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3246:2: 3246 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3247:2: 3247 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3248:2: 3248 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3249:2: 3249 | allgammavaltrain(cvprunloop+1) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3250:2: 3250 | call cvlosspredict(traindata,traindatasize,nodenummatnew,testdata,colnum,levelcount,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3251:2: 3251 | nodenummatnewtest,testdatasize,maxdepth,losspredsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3252:2: 3252 | losspredsumvec(cvprunloop+1) = losspredsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3253:2: 3253 | call R2CV(traindata,traindatasize,nodenummatnew,testdata,colnum,levelcount,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3254:2: 3254 | nodenummatnewtest,testdatasize,maxdepth,r2cvval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3255:2: 3255 | r2cvvec(cvprunloop+1) = r2cvval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3256:2: 3256 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3257:2: 3257 | gammacv(1) = losspredsumvec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3258:2: 3258 | gammar2cv(1) = r2cvvec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3259:2: 3259 | j = 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3260:2: 3260 | do i = 2,size(allgammaval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3261:2: 3261 | if(allgammaval(i) == 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3262:2: 3262 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3263:2: 3263 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3264:2: 3264 | if(allgammaval(i) <= allgammavaltrain(j)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3265:2: 3265 | gammacv(i) = losspredsumvec(j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3266:2: 3266 | gammar2cv(i) = r2cvvec(j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3267:2: 3267 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3268:2: 3268 | do k = 1,size(allgammaval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3269:2: 3269 | if(allgammaval(i) > allgammavaltrain(j+k) .and. allgammavaltrain(j+k) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3270:2: 3270 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3271:2: 3271 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3272:2: 3272 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3273:2: 3273 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3274:2: 3274 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3275:2: 3275 | gammacv(i) = losspredsumvec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3276:2: 3276 | gammar2cv(i) = r2cvvec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3277:2: 3277 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3278:2: 3278 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3279:2: 3279 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3283:2: 3283 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3284:2: 3284 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3285:2: 3285 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3286:2: 3286 | real(8), intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3287:2: 3287 | real(8), intent(out) :: losspredsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3288:2: 3288 | real(8), allocatable :: timepred(:,:),losspred(:,:), timepredcou(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3289:2: 3289 | integer i,j,k,l,maxactive_depth,nidx,tidx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3290:2: 3290 | allocate(timepred(((2**maxdepth)-1),levelcount),losspred(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3291:2: 3291 | allocate(timepredcou(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3292:2: 3292 | timepred(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3293:2: 3293 | losspred(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3294:2: 3294 | timepredcou(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3295:2: 3295 | maxactive_depth = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3296:2: 3296 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3297:2: 3297 | if(sum(nodenummat(:,i)) == 0) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3298:2: 3298 | maxactive_depth = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3299:2: 3299 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3300:2: 3300 | do j = 1,traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3301:2: 3301 | tidx = int(traindata(j,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3302:2: 3302 | do i = maxactive_depth, 1, -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3303:2: 3303 | nidx = nodenummat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3304:2: 3304 | if(nidx > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3305:2: 3305 | if(i == maxactive_depth .or. nodenummat(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3306:2: 3306 | timepred(nidx,tidx) = timepred(nidx,tidx) + traindata(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3307:2: 3307 | timepredcou(nidx,tidx) = timepredcou(nidx,tidx) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3308:2: 3308 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3309:2: 3309 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3310:2: 3310 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3311:2: 3311 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3312:2: 3312 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3313:2: 3313 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3314:2: 3314 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3315:2: 3315 | do j = 1,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3316:2: 3316 | timepred(i,j) = timepred(i,j)/timepredcou(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3317:2: 3317 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3318:2: 3318 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3319:2: 3319 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3320:2: 3320 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3321:2: 3321 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3322:2: 3322 | do j=1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3323:2: 3323 | if(2**(j-1) <= i .and. i < 2**j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3324:2: 3324 | k = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3325:2: 3325 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3326:2: 3326 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3327:2: 3327 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3328:2: 3328 | do l = 1,testdatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3329:2: 3329 | if(nodenummattest(l,k) == i) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3330:2: 3330 | losspred(i,int(testdata(l,3))) = losspred(i,int(testdata(l,3))) + ((testdata(l,1) - timepred(i,int(testdata(l,3))))**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3331:2: 3331 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3332:2: 3332 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3333:2: 3333 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3334:2: 3334 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3335:2: 3335 | losspredsum = sum(losspred) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3336:2: 3336 | deallocate(timepred,losspred,timepredcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3339:2: 3339 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3340:2: 3340 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3341:2: 3341 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3342:2: 3342 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3343:2: 3343 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3344:2: 3344 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3345:2: 3345 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3346:2: 3346 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3347:2: 3347 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3348:2: 3348 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3349:2: 3349 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3350:2: 3350 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3351:2: 3351 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3352:2: 3352 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3353:2: 3353 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3354:2: 3354 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3355:2: 3355 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3356:2: 3356 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3357:2: 3357 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3358:2: 3358 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3359:2: 3359 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3360:2: 3360 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3361:2: 3361 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3362:2: 3362 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3363:2: 3363 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3364:2: 3364 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3365:2: 3365 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3366:2: 3366 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3367:2: 3367 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3370:2: 3370 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3371:2: 3371 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3372:2: 3372 | real(8) allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3373:2: 3373 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3374:2: 3374 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3375:2: 3375 | real(8), intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3376:2: 3376 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3377:2: 3377 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3378:2: 3378 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3379:2: 3379 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3380:2: 3380 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3381:2: 3381 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3382:2: 3382 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3383:2: 3383 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3384:2: 3384 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3385:2: 3385 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3386:2: 3386 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3387:2: 3387 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3388:2: 3388 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3389:2: 3389 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3390:2: 3390 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3391:2: 3391 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3392:2: 3392 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3393:2: 3393 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3394:2: 3394 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3395:2: 3395 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3396:2: 3396 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3397:2: 3397 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3398:2: 3398 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3399:2: 3399 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3400:2: 3400 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3401:2: 3401 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3402:2: 3402 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3403:2: 3403 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3404:2: 3404 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3405:2: 3405 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3406:2: 3406 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3407:2: 3407 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3408:2: 3408 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3409:2: 3409 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3410:2: 3410 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3411:2: 3411 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3412:2: 3412 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3415:2: 3415 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3416:2: 3416 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3417:2: 3417 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3418:2: 3418 | real(8), intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3419:2: 3419 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3420:2: 3420 | real(8), intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3421:2: 3421 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3422:2: 3422 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3423:2: 3423 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3424:2: 3424 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3425:2: 3425 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3426:2: 3426 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3427:2: 3427 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3428:2: 3428 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3429:2: 3429 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3430:2: 3430 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3431:2: 3431 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3432:2: 3432 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3433:2: 3433 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3434:2: 3434 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3435:2: 3435 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3436:2: 3436 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3437:2: 3437 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3438:2: 3438 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3439:2: 3439 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3440:2: 3440 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3441:2: 3441 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3442:2: 3442 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3445:2: 3445 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3446:2: 3446 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3447:2: 3447 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3448:2: 3448 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3449:2: 3449 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3450:2: 3450 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3451:2: 3451 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3452:2: 3452 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3453:2: 3453 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3454:2: 3454 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3455:2: 3455 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3456:2: 3456 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3457:2: 3457 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3458:2: 3458 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3459:2: 3459 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3460:2: 3460 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3461:2: 3461 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3462:2: 3462 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3463:2: 3463 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3466:2: 3466 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3467:2: 3467 | integer,intent(in) :: msize,maxdepth,prunind,cv | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3468:2: 3468 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3469:2: 3469 | double precision,intent(in) :: bestgammaval,allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3470:2: 3470 | integer,intent(out) :: prunenodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3471:2: 3471 | double precision minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3472:2: 3472 | double precision gammavec((2**(maxdepth-1))-1),allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3473:2: 3473 | integer nottnodeval,allnodenum,minghnum,prunloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3474:2: 3474 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3475:2: 3475 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3476:2: 3476 | if(bestgammaval <= 0d0 .or. prunind==1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3477:2: 3477 | prunenodenummat(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3478:2: 3478 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3479:2: 3479 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3480:2: 3480 | gammavec(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3481:2: 3481 | call gterminalnodecount(nodenummat,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3482:2: 3482 | call gweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3483:2: 3483 | gammavec(1) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3484:2: 3484 | if(gammavec(1) > bestgammaval .and. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3485:2: 3485 | prunenodenummat(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3486:2: 3486 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3487:2: 3487 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3488:2: 3488 | allocate(nodenummatnew(msize,maxdepth),nodenummatnewsub(msize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3489:2: 3489 | call gpruntreemat(nodenummat,maxdepth,msize,minghnum,allfval,allfvalnew,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3490:2: 3490 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3491:2: 3491 | deallocate(nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3492:2: 3492 | if(bestgammaval == minghval .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3493:2: 3493 | prunenodenummat(:,:) = nodenummatnew(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3494:2: 3494 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3495:2: 3495 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3496:2: 3496 | do prunloop = 2,((2**(maxdepth-1))-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3497:2: 3497 | allfvalnewsub(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3498:2: 3498 | call gterminalnodecount(nodenummatnew,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3499:2: 3499 | if(allnodenum == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3500:2: 3500 | prunenodenummat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3501:2: 3501 | prunenodenummat(:,1) = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3502:2: 3502 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3503:2: 3503 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3504:2: 3504 | call gweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3505:2: 3505 | gammavec(prunloop) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3506:2: 3506 | if(gammavec(prunloop-1) < bestgammaval .and. gammavec(prunloop) > bestgammaval .and. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3507:2: 3507 | prunenodenummat(:,:) = nodenummatnew(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3508:2: 3508 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3509:2: 3509 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3510:2: 3510 | allocate(nodenummatnewsub(msize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3511:2: 3511 | call gpruntreemat(nodenummatnew,maxdepth,msize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3512:2: 3512 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3513:2: 3513 | allfvalnew(:) = allfvalnewsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3514:2: 3514 | deallocate(nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3515:2: 3515 | if(bestgammaval == minghval .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3516:2: 3516 | prunenodenummat(:,:) = nodenummatnew(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3517:2: 3517 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3518:2: 3518 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3519:2: 3519 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3523:2: 3523 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3524:2: 3524 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3525:2: 3525 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3526:2: 3526 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3527:2: 3527 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3528:2: 3528 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3529:2: 3529 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3530:2: 3530 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3531:2: 3531 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3532:2: 3532 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3533:2: 3533 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3534:2: 3534 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3535:2: 3535 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3536:2: 3536 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3537:2: 3537 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3538:2: 3538 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3539:2: 3539 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3540:2: 3540 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3541:2: 3541 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3542:2: 3542 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3543:2: 3543 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3544:2: 3544 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3545:2: 3545 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3546:2: 3546 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3547:2: 3547 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3548:2: 3548 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3549:2: 3549 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3550:2: 3550 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3551:2: 3551 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3554:2: 3554 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3555:2: 3555 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3556:2: 3556 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3557:2: 3557 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3558:2: 3558 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3559:2: 3559 | double precision, intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3560:2: 3560 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3561:2: 3561 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3562:2: 3562 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3563:2: 3563 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3564:2: 3564 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3565:2: 3565 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3566:2: 3566 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3567:2: 3567 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3568:2: 3568 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3569:2: 3569 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3570:2: 3570 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3571:2: 3571 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3572:2: 3572 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3573:2: 3573 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3574:2: 3574 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3575:2: 3575 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3576:2: 3576 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3577:2: 3577 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3578:2: 3578 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3579:2: 3579 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3580:2: 3580 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3581:2: 3581 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3582:2: 3582 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3583:2: 3583 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3584:2: 3584 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3585:2: 3585 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3586:2: 3586 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3587:2: 3587 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3588:2: 3588 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3589:2: 3589 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3590:2: 3590 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3591:2: 3591 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3592:2: 3592 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3593:2: 3593 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3594:2: 3594 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3595:2: 3595 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3596:2: 3596 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3599:2: 3599 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3600:2: 3600 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3601:2: 3601 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3602:2: 3602 | double precision, intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3603:2: 3603 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3604:2: 3604 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3605:2: 3605 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3606:2: 3606 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3607:2: 3607 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3608:2: 3608 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3609:2: 3609 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3610:2: 3610 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3611:2: 3611 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3612:2: 3612 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3613:2: 3613 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3614:2: 3614 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3615:2: 3615 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3616:2: 3616 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3617:2: 3617 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3618:2: 3618 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3619:2: 3619 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3620:2: 3620 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3621:2: 3621 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3622:2: 3622 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3623:2: 3623 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3624:2: 3624 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3625:2: 3625 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3626:2: 3626 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3629:2: 3629 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3630:2: 3630 | integer, intent(in) :: msize,levelcount,maxdepth,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3631:2: 3631 | integer, intent(in) :: prunenodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3632:2: 3632 | double precision, intent(in) :: XYDATA(Msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3633:2: 3633 | integer, intent(out) :: datatnnodenum(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3634:2: 3634 | double precision, intent(out) :: predvec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3635:2: 3635 | double precision, allocatable :: timepredsum(:,:),timepredcou(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3636:2: 3636 | double precision tnodepredmat((2**maxdepth)-1,levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3637:2: 3637 | integer i,j,maxactive_depth,nidx,tidx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3638:2: 3638 | allocate(timepredsum(((2**maxdepth)-1),levelcount),timepredcou(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3639:2: 3639 | timepredsum(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3640:2: 3640 | timepredcou(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3641:2: 3641 | datatnnodenum(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3642:2: 3642 | maxactive_depth = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3643:2: 3643 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3644:2: 3644 | if(sum(prunenodenummat(:,i)) == 0) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3645:2: 3645 | maxactive_depth = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3646:2: 3646 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3647:2: 3647 | do j = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3648:2: 3648 | tidx = int(XYDATA(j,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3649:2: 3649 | do i = maxactive_depth, 1, -1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3650:2: 3650 | nidx = prunenodenummat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3651:2: 3651 | if(nidx > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3652:2: 3652 | if(i == maxactive_depth .or. prunenodenummat(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3653:2: 3653 | timepredsum(nidx,tidx) = timepredsum(nidx,tidx) + XYDATA(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3654:2: 3654 | timepredcou(nidx,tidx) = timepredcou(nidx,tidx) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3655:2: 3655 | datatnnodenum(j) = nidx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3656:2: 3656 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3657:2: 3657 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3658:2: 3658 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3659:2: 3659 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3660:2: 3660 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3661:2: 3661 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3662:2: 3662 | if(abs(sum(timepredsum(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3663:2: 3663 | do j = 1,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3664:2: 3664 | tnodepredmat(i,j) = timepredsum(i,j)/timepredcou(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3665:2: 3665 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3666:2: 3666 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3667:2: 3667 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3668:2: 3668 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3669:2: 3669 | predvec(i) = tnodepredmat(datatnnodenum(i),int(xydata(i,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3670:2: 3670 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3673:2: 3673 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3674:2: 3674 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3675:2: 3675 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3676:2: 3676 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3677:2: 3677 | double precision, intent(out) :: xynodedata(nodesize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3678:2: 3678 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3679:2: 3679 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3680:2: 3680 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3681:2: 3681 | if(nodenummat(i,hierarchy) == nodenum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3682:2: 3682 | xynodedata(j,:) = xydata(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3683:2: 3683 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3684:2: 3684 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3685:2: 3685 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3689:2: 3689 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3690:2: 3690 | integer, intent(in) :: nodedatasize,colnum,maxdepth,ind1,ind2,splitvecsize,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3691:2: 3691 | integer, intent(in) :: datatype(colnum-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3692:2: 3692 | double precision, intent(in) :: nodedata(nodedatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3693:2: 3693 | integer, intent(in) :: prunnodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3694:2: 3694 | integer, intent(out) :: splitvector(splitvecsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3695:2: 3695 | double precision, intent(out) :: splitnumber(splitvecsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3696:2: 3696 | integer i,j,hierarchy,nodesize,facsum,count_0,count_1,idx,splitnum,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3697:2: 3697 | double precision datasample(nodedatasize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3698:2: 3698 | integer, allocatable :: splitindmat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3699:2: 3699 | datasample = nodedata(:,ind1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3700:2: 3700 | if(datatype(ind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3701:2: 3701 | splitnum = splitvecsize - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3702:2: 3702 | elseif(datatype(ind1-3) == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3703:2: 3703 | splitnum = (2 ** (splitvecsize-1)) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3704:2: 3704 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3705:2: 3705 | call spdataval(nodedata(:,ind1),nodedatasize,splitnumber,splitvecsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3706:2: 3706 | allocate(splitindmat(splitnum,splitvecsize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3707:2: 3707 | if(datatype(ind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3708:2: 3708 | do i = 1,splitnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3709:2: 3709 | do j = 1,splitvecsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3710:2: 3710 | if(i >= j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3711:2: 3711 | splitindmat(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3712:2: 3712 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3713:2: 3713 | splitindmat(i,j) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3714:2: 3714 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3715:2: 3715 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3716:2: 3716 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3717:2: 3717 | elseif(datatype(ind1-3) == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3718:2: 3718 | idx = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3719:2: 3719 | do i = 0, 2**(splitvecsize-1) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3720:2: 3720 | count_0 = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3721:2: 3721 | count_1 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3722:2: 3722 | splitindmat(idx, 1) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3723:2: 3723 | do j = 0, splitvecsize - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3724:2: 3724 | if (iand(i, 2**j) /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3725:2: 3725 | splitindmat(idx, j+2) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3726:2: 3726 | count_1 = count_1 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3727:2: 3727 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3728:2: 3728 | splitindmat(idx, j+2) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3729:2: 3729 | count_0 = count_0 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3730:2: 3730 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3731:2: 3731 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3732:2: 3732 | if (count_0 > 0 .and. count_1 > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3733:2: 3733 | idx = idx + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3734:2: 3734 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3735:2: 3735 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3736:2: 3736 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3737:2: 3737 | splitvector = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3740:2: 3740 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3741:2: 3741 | integer,intent(in) :: msize, facsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3742:2: 3742 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3743:2: 3743 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3744:2: 3744 | double precision, intent(out) :: facval(facsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3745:2: 3745 | integer count, i, j, k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3746:2: 3746 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3747:2: 3747 | call spdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3748:2: 3748 | facval(1) = datavecsub(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3749:2: 3749 | k = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3750:2: 3750 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3751:2: 3751 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3752:2: 3752 | k = k + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3753:2: 3753 | facval(k) = datavecsub(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3754:2: 3754 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3755:2: 3755 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3758:2: 3758 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3759:2: 3759 | integer,intent(in) :: msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3760:2: 3760 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3761:2: 3761 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3762:2: 3762 | integer, intent(out) :: facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3763:2: 3763 | integer count, j, i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3764:2: 3764 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3765:2: 3765 | call spdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3766:2: 3766 | count = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3767:2: 3767 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3768:2: 3768 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3769:2: 3769 | count = count + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3770:2: 3770 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3771:2: 3771 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3772:2: 3772 | facsum = count | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3775:2: 3775 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3776:2: 3776 | integer,intent(in)::start,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3777:2: 3777 | double precision,intent(inout)::datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3778:2: 3778 | double precision x,t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3779:2: 3779 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3780:2: 3780 | x = datavec((start+msize)/2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3781:2: 3781 | i = start | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3782:2: 3782 | j = msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3783:2: 3783 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3784:2: 3784 | do while (datavec(i) < x) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3785:2: 3785 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3786:2: 3786 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3787:2: 3787 | do while (x < datavec(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3788:2: 3788 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3789:2: 3789 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3790:2: 3790 | if (i >= j) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3791:2: 3791 | t = datavec(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3792:2: 3792 | datavec(i) = datavec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3793:2: 3793 | datavec(j) = t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3794:2: 3794 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3795:2: 3795 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3796:2: 3796 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3797:2: 3797 | if (start < i-1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3798:2: 3798 | call spdatasort(datavec, start, i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3799:2: 3799 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3800:2: 3800 | if (j+1 < msize) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3801:2: 3801 | call spdatasort(datavec, j+1, msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3802:2: 3802 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3803:2: 3803 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3806:2: 3806 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3807:2: 3807 | integer, intent(in) :: msize,bootsize,colnum,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3808:2: 3808 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3809:2: 3809 | integer, intent(out) :: oridata(bootsize*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3810:2: 3810 | double precision, intent(out) :: bootdata(bootsize*levelcount,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3811:2: 3811 | integer idsum,randval,i,j,k,l,m | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3812:2: 3812 | integer oriind(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3813:2: 3813 | double precision randvalsub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3814:2: 3814 | double precision idnum(levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3815:2: 3815 | call getrngstate() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3816:2: 3816 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3817:2: 3817 | oriind(i) = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3818:2: 3818 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3819:2: 3819 | call threetreesbsdatasum(xydata(:,2),msize,idsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3820:2: 3820 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3821:2: 3821 | k = levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3822:2: 3822 | do i=1,bootsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3823:2: 3823 | call unifrand(randvalsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3824:2: 3824 | randval = int(randvalsub * dble(idsum)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3825:2: 3825 | l = (randval-1)*levelcount+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3826:2: 3826 | m = randval*levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3827:2: 3827 | idnum(:) = dble(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3828:2: 3828 | oridata(j:k)=oriind(l:m) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3829:2: 3829 | bootdata(j:k,1) = xydata(l:m,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3830:2: 3830 | bootdata(j:k,2) = idnum(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3831:2: 3831 | bootdata(j:k,3:colnum) = xydata(l:m,3:colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3832:2: 3832 | j = j + levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3833:2: 3833 | k = k + levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3834:2: 3834 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3835:2: 3835 | call putrngstate() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3838:2: 3838 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3839:2: 3839 | integer,intent(in) :: msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3840:2: 3840 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3841:2: 3841 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3842:2: 3842 | integer, intent(out) :: facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3843:2: 3843 | integer count, j, i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3844:2: 3844 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3845:2: 3845 | call threetreesbsdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3846:2: 3846 | count = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3847:2: 3847 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3848:2: 3848 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3849:2: 3849 | count = count + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3850:2: 3850 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3851:2: 3851 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3852:2: 3852 | facsum = count | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3855:2: 3855 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3856:2: 3856 | integer,intent(in)::start,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3857:2: 3857 | double precision,intent(inout)::datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3858:2: 3858 | double precision x,t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3859:2: 3859 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3860:2: 3860 | x = datavec((start+msize)/2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3861:2: 3861 | i = start | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3862:2: 3862 | j = msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3863:2: 3863 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3864:2: 3864 | do while (datavec(i) < x) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3865:2: 3865 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3866:2: 3866 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3867:2: 3867 | do while (x < datavec(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3868:2: 3868 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3869:2: 3869 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3870:2: 3870 | if (i >= j) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3871:2: 3871 | t = datavec(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3872:2: 3872 | datavec(i) = datavec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3873:2: 3873 | datavec(j) = t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3874:2: 3874 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3875:2: 3875 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3876:2: 3876 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3877:2: 3877 | if (start < i-1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3878:2: 3878 | call threetreesbsdatasort(datavec, start, i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3879:2: 3879 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3880:2: 3880 | if (j+1 < msize) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3881:2: 3881 | call threetreesbsdatasort(datavec, j+1, msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3882:2: 3882 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3883:2: 3883 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3887:2: 3887 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3888:2: 3888 | integer, intent(in) :: bootdatasize,oridatasize,maxdepth,colnum,beta1len,beta2len,levelcount,minsplit,minbucket | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3889:2: 3889 | integer, intent(in) :: datatype(colnum-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3890:2: 3890 | double precision, intent(in) :: fixweight,alpha | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3891:2: 3891 | double precision, intent(in) :: bootdata(bootdatasize,colnum),beta1(beta1len),beta2(beta2len) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3892:2: 3892 | double precision, intent(in) :: oridata(oridatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3893:2: 3893 | integer,intent(out) :: prunind | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3894:2: 3894 | integer, intent(out) :: nodenummatboot(bootdatasize,maxdepth),nodenummatori(oridatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3895:2: 3895 | double precision,intent(out) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3896:2: 3896 | integer nodenummatsub(bootdatasize,maxdepth),nodenummatsubori(oridatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3897:2: 3897 | integer nodenum,hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,separatecou,separateint,sizenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3898:2: 3898 | integer sizel,sizer,sizelori,sizerori,treeloop,stopcount,nodeloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3899:2: 3899 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3900:2: 3900 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3901:2: 3901 | double precision fval(2),splitfval(2),splitmcppval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3902:2: 3902 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:),splitindvec(:),nodesizeori(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3903:2: 3903 | integer,allocatable :: nodesizesub(:),nodesizesubori(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3904:2: 3904 | double precision, allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3905:2: 3905 | double precision, allocatable :: xynodedata(:,:),xynodedataori(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3906:2: 3906 | double precision, allocatable :: fval_cache(:,:), groupsum_cache(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3907:2: 3907 | integer, allocatable :: flat_idx_vec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3908:2: 3908 | integer :: dfvec_const(5), flat_idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3909:2: 3909 | double precision :: splitgroupsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3910:2: 3910 | logical :: dfvec_set | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3911:2: 3911 | nodenummatboot(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3912:2: 3912 | nodenummatboot(:,1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3913:2: 3913 | nodenummatori(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3914:2: 3914 | nodenummatori(:,1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3915:2: 3915 | nodenum = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3916:2: 3916 | hierarchy = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3917:2: 3917 | allfval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3918:2: 3918 | splitmcp = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3919:2: 3919 | allocate(nodesize(2),nodesizeori(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3920:2: 3920 | prunind=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3921:2: 3921 | splitpval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3922:2: 3922 | call threetreesbootsplitcount(bootdatasize, colnum-3, bootdata, DATATYPE, splitnum, countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3923:2: 3923 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3924:2: 3924 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3925:2: 3925 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3926:2: 3926 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3927:2: 3927 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3928:2: 3928 | allocate(anovadata(bootdatasize,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3929:2: 3929 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3930:2: 3930 | dfvec_set = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3931:2: 3931 | indcou = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3932:2: 3932 | do ind1=4,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3933:2: 3933 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3934:2: 3934 | call threetreesbootsplitmat(ind1,datatype(ind1-3),bootdata,bootdatasize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3935:2: 3935 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3936:2: 3936 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3937:2: 3937 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3938:2: 3938 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3939:2: 3939 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),bootdata,bootdatasize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3940:2: 3940 | call threetreesbootrepANOVA(bootdatasize,colnum,anovadata,fval,dfvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3941:2: 3941 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3942:2: 3942 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3943:2: 3943 | groupsum_cache(indcou) = sum(anovadata(:,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3944:2: 3944 | if (.not. dfvec_set) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3945:2: 3945 | dfvec_const = dfvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3946:2: 3946 | dfvec_set = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3947:2: 3947 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3948:2: 3948 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3949:2: 3949 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3950:2: 3950 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3951:2: 3951 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3952:2: 3952 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3953:2: 3953 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3954:2: 3954 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3955:2: 3955 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3956:2: 3956 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3957:2: 3957 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3958:2: 3958 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3959:2: 3959 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3960:2: 3960 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3961:2: 3961 | allocate(flat_idx_vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3962:2: 3962 | do i = 1,11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3963:2: 3963 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3964:2: 3964 | wfvec(i) = wfmat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3965:2: 3965 | ind1vec(i) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3966:2: 3966 | ind2vec(i) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3967:2: 3967 | flat_idx_vec(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3968:2: 3968 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3969:2: 3969 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3970:2: 3970 | allocate(flat_idx_vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3971:2: 3971 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3972:2: 3972 | wfvec(1) = wfmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3973:2: 3973 | ind1vec(1) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3974:2: 3974 | ind2vec(1) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3975:2: 3975 | flat_idx_vec(1) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3976:2: 3976 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3977:2: 3977 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3978:2: 3978 | do weightind=0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3979:2: 3979 | flat_idx = flat_idx_vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3980:2: 3980 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3981:2: 3981 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3982:2: 3982 | weight = 0.1d0 * dble(weightind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3983:2: 3983 | call threetreesbootweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3984:2: 3984 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3985:2: 3985 | (dble(bootdatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3986:2: 3986 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3987:2: 3987 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3988:2: 3988 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3989:2: 3989 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3990:2: 3990 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3991:2: 3991 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3992:2: 3992 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3993:2: 3993 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3994:2: 3994 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3995:2: 3995 | if(splitpval==0d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3996:2: 3996 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3997:2: 3997 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3998:2: 3998 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:3999:2: 3999 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4000:2: 4000 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4001:2: 4001 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4002:2: 4002 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4003:2: 4003 | call threetreesbootsplitmat(ind1,datatype(ind1-3),bootdata,bootdatasize,colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4004:2: 4004 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4005:2: 4005 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4006:2: 4006 | bootdata,bootdatasize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4007:2: 4007 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4008:2: 4008 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4009:2: 4009 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4010:2: 4010 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4011:2: 4011 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4012:2: 4012 | call threetreesbootdatasum(oridata(:,splitind1),oridatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4013:2: 4013 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4014:2: 4014 | call threetreesbootdataval(oridata(:,splitind1),oridatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4015:2: 4015 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4016:2: 4016 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4017:2: 4017 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4018:2: 4018 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4019:2: 4019 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4020:2: 4020 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4021:2: 4021 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4022:2: 4022 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4023:2: 4023 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4024:2: 4024 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4025:2: 4025 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4026:2: 4026 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4027:2: 4027 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4028:2: 4028 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4029:2: 4029 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4030:2: 4030 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4031:2: 4031 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4032:2: 4032 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4033:2: 4033 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4034:2: 4034 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4035:2: 4035 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4036:2: 4036 | flat_idx = flat_idx_vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4037:2: 4037 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4038:2: 4038 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4039:2: 4039 | weight = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4040:2: 4040 | call threetreesbootweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4041:2: 4041 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4042:2: 4042 | (dble(bootdatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4043:2: 4043 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4044:2: 4044 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4045:2: 4045 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4046:2: 4046 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4047:2: 4047 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4048:2: 4048 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4049:2: 4049 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4050:2: 4050 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4051:2: 4051 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4052:2: 4052 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4053:2: 4053 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4054:2: 4054 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4055:2: 4055 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4056:2: 4056 | call threetreesbootsplitmat(ind1,datatype(ind1-3),bootdata,bootdatasize,colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4057:2: 4057 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4058:2: 4058 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4059:2: 4059 | bootdata,bootdatasize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4060:2: 4060 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4061:2: 4061 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4062:2: 4062 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4063:2: 4063 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4064:2: 4064 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4065:2: 4065 | call threetreesbootdatasum(oridata(:,splitind1),oridatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4066:2: 4066 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4067:2: 4067 | call threetreesbootdataval(oridata(:,splitind1),oridatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4068:2: 4068 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4069:2: 4069 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4070:2: 4070 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4071:2: 4071 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4072:2: 4072 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4073:2: 4073 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4074:2: 4074 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4075:2: 4075 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4076:2: 4076 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4077:2: 4077 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4078:2: 4078 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4079:2: 4079 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4080:2: 4080 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4081:2: 4081 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4082:2: 4082 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4083:2: 4083 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4084:2: 4084 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4085:2: 4085 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4086:2: 4086 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4087:2: 4087 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4088:2: 4088 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4089:2: 4089 | if (splitpval >= 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4090:2: 4090 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4091:2: 4091 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4092:2: 4092 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4093:2: 4093 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4094:2: 4094 | weight = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4095:2: 4095 | call threetreesbootweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4096:2: 4096 | splitmcppval(1) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4097:2: 4097 | weight = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4098:2: 4098 | call threetreesbootweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4099:2: 4099 | splitmcppval(2) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4100:2: 4100 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4101:2: 4101 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4102:2: 4102 | if(splitmcp > alphamcp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4103:2: 4103 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4104:2: 4104 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4105:2: 4105 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4106:2: 4106 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4107:2: 4107 | if(splitpval > alpha) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4108:2: 4108 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4109:2: 4109 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4110:2: 4110 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4111:2: 4111 | if(splitgroupsum < dble(levelcount*minbucket) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4112:2: 4112 | (dble(bootdatasize) - splitgroupsum) < dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4113:2: 4113 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4114:2: 4114 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4115:2: 4115 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4116:2: 4116 | deallocate(fval_cache, groupsum_cache, flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4117:2: 4117 | sizenum = size(splitfacval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4118:2: 4118 | call threetreesbootnodenumber(bootdata,maxdepth,bootdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4119:2: 4119 | hierarchy+1,nodenummatboot,nodenummatsub,sizel,sizer) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4120:2: 4120 | call threetreesbootnodenumber(oridata,maxdepth,oridatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4121:2: 4121 | hierarchy+1,nodenummatori,nodenummatsubori,sizelori,sizerori) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4122:2: 4122 | nodesize(1) = sizel | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4123:2: 4123 | nodesize(2) = sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4124:2: 4124 | nodesizeori(1) = sizelori | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4125:2: 4125 | nodesizeori(2) = sizerori | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4126:2: 4126 | deallocate(anovadata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4127:2: 4127 | allfval(1) = splitwfval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4128:2: 4128 | nodenummatboot(:,:) = nodenummatsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4129:2: 4129 | nodenummatori(:,:) = nodenummatsubori(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4130:2: 4130 | do treeloop = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4131:2: 4131 | stopcount = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4132:2: 4132 | hierarchy = hierarchy + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4133:2: 4133 | do nodeloop = 1,(2**treeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4134:2: 4134 | if(allocated(wfmat) .or. allocated(indmat) .or. allocated(wfvec) .or. allocated(ind1vec) .or. allocated(ind2vec)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4135:2: 4135 | deallocate(wfmat,indmat,wfvec,ind1vec,ind2vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4136:2: 4136 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4137:2: 4137 | nodenum = nodenum + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4138:2: 4138 | splitpval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4139:2: 4139 | allocate(xynodedata(nodesize(nodeloop),colnum),anovadata(nodesize(nodeloop),4),xynodedataori(nodesizeori(nodeloop),colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4140:2: 4140 | if(nodesize(nodeloop) < (levelcount*minsplit)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4141:2: 4141 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4142:2: 4142 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4143:2: 4143 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4144:2: 4144 | call threetreesbootnodedata(bootdata,bootdatasize,colnum,nodenum,hierarchy,nodenummatboot,nodesize(nodeloop),xynodedata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4145:2: 4145 | call threetreesbootnodedata(oridata,oridatasize,colnum,nodenum,hierarchy,nodenummatori,nodesizeori(nodeloop),xynodedataori) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4146:2: 4146 | call threetreesbootsplitcount(nodesize(nodeloop), colnum-3, xynodedata, DATATYPE, splitnum, countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4147:2: 4147 | if(sum(splitnum) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4148:2: 4148 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4149:2: 4149 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4150:2: 4150 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4151:2: 4151 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4152:2: 4152 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4153:2: 4153 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4154:2: 4154 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4155:2: 4155 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4156:2: 4156 | wfmat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4157:2: 4157 | indmat(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4158:2: 4158 | indcou = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4159:2: 4159 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4160:2: 4160 | dfvec_set = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4161:2: 4161 | do ind1=4,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4162:2: 4162 | if(splitnum(ind1-3) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4163:2: 4163 | goto 2000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4164:2: 4164 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4165:2: 4165 | if(allocated(splitindmat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4166:2: 4166 | deallocate(splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4167:2: 4167 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4168:2: 4168 | if(.not. allocated(splitindmat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4169:2: 4169 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4170:2: 4170 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4171:2: 4171 | if(allocated(facvalout)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4172:2: 4172 | deallocate(facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4173:2: 4173 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4174:2: 4174 | if(.not. allocated(facvalout)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4175:2: 4175 | allocate(facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4176:2: 4176 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4177:2: 4177 | call threetreesbootsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4178:2: 4178 | countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4179:2: 4179 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4180:2: 4180 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4181:2: 4181 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4182:2: 4182 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4183:2: 4183 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4184:2: 4184 | colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4185:2: 4185 | call threetreesbootrepANOVA(nodesize(nodeloop),colnum,anovadata,fval,dfvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4186:2: 4186 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4187:2: 4187 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4188:2: 4188 | groupsum_cache(indcou) = sum(anovadata(:,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4189:2: 4189 | if (.not. dfvec_set) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4190:2: 4190 | dfvec_const = dfvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4191:2: 4191 | dfvec_set = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4192:2: 4192 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4193:2: 4193 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4194:2: 4194 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4195:2: 4195 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4196:2: 4196 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4197:2: 4197 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4198:2: 4198 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4199:2: 4199 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4200:2: 4200 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4201:2: 4201 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4202:2: 4202 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4203:2: 4203 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4204:6: 4204 | 2000 continue | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4205:2: 4205 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4206:2: 4206 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4207:2: 4207 | allocate(flat_idx_vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4208:2: 4208 | do i = 1,11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4209:2: 4209 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4210:2: 4210 | wfvec(i) = wfmat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4211:2: 4211 | ind1vec(i) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4212:2: 4212 | ind2vec(i) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4213:2: 4213 | flat_idx_vec(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4214:2: 4214 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4215:2: 4215 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4216:2: 4216 | allocate(flat_idx_vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4217:2: 4217 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4218:2: 4218 | wfvec(1) = wfmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4219:2: 4219 | ind1vec(1) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4220:2: 4220 | ind2vec(1) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4221:2: 4221 | flat_idx_vec(1) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4222:2: 4222 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4223:2: 4223 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4224:2: 4224 | do weightind=0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4225:2: 4225 | flat_idx = flat_idx_vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4226:2: 4226 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4227:2: 4227 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4228:2: 4228 | weight = 0.1d0 * dble(weightind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4229:2: 4229 | call threetreesbootweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4230:2: 4230 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4231:2: 4231 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4232:2: 4232 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4233:2: 4233 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4234:2: 4234 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4235:2: 4235 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4236:2: 4236 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4237:2: 4237 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4238:2: 4238 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4239:2: 4239 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4240:2: 4240 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4241:2: 4241 | if(splitpval==0d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4242:2: 4242 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4243:2: 4243 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4244:2: 4244 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4245:2: 4245 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4246:2: 4246 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4247:2: 4247 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4248:2: 4248 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4249:2: 4249 | call threetreesbootsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4250:2: 4250 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4251:2: 4251 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4252:2: 4252 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4253:2: 4253 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4254:2: 4254 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4255:2: 4255 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4256:2: 4256 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4257:2: 4257 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4258:2: 4258 | call threetreesbootdatasum(oridata(:,splitind1),oridatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4259:2: 4259 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4260:2: 4260 | call threetreesbootdataval(oridata(:,splitind1),oridatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4261:2: 4261 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4262:2: 4262 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4263:2: 4263 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4264:2: 4264 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4265:2: 4265 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4266:2: 4266 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4267:2: 4267 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4268:2: 4268 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4269:2: 4269 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4270:2: 4270 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4271:2: 4271 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4272:2: 4272 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4273:2: 4273 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4274:2: 4274 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4275:2: 4275 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4276:2: 4276 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4277:2: 4277 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4278:2: 4278 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4279:2: 4279 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4280:2: 4280 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4281:2: 4281 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4282:2: 4282 | flat_idx = flat_idx_vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4283:2: 4283 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4284:2: 4284 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4285:2: 4285 | weight = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4286:2: 4286 | call threetreesbootweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4287:2: 4287 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4288:2: 4288 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4289:2: 4289 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4290:2: 4290 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4291:2: 4291 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4292:2: 4292 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4293:2: 4293 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4294:2: 4294 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4295:2: 4295 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4296:2: 4296 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4297:2: 4297 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4298:2: 4298 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4299:2: 4299 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4300:2: 4300 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4301:2: 4301 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4302:2: 4302 | call threetreesbootsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4303:2: 4303 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4304:2: 4304 | call threetreesbootsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4305:2: 4305 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4306:2: 4306 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4307:2: 4307 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4308:2: 4308 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4309:2: 4309 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4310:2: 4310 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4311:2: 4311 | call threetreesbootdatasum(oridata(:,splitind1),oridatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4312:2: 4312 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4313:2: 4313 | call threetreesbootdataval(oridata(:,splitind1),oridatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4314:2: 4314 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4315:2: 4315 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4316:2: 4316 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4317:2: 4317 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4318:2: 4318 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4319:2: 4319 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4320:2: 4320 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4321:2: 4321 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4322:2: 4322 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4323:2: 4323 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4324:2: 4324 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4325:2: 4325 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4326:2: 4326 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4327:2: 4327 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4328:2: 4328 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4329:2: 4329 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4330:2: 4330 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4331:2: 4331 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4332:2: 4332 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4333:2: 4333 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4334:2: 4334 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4335:2: 4335 | if (splitpval >= 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4336:2: 4336 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4337:2: 4337 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4338:2: 4338 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4339:2: 4339 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4340:2: 4340 | weight = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4341:2: 4341 | call threetreesbootweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4342:2: 4342 | splitmcppval(1) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4343:2: 4343 | weight = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4344:2: 4344 | call threetreesbootweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4345:2: 4345 | splitmcppval(2) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4346:2: 4346 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4347:2: 4347 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4348:2: 4348 | if(splitmcp > alphamcp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4349:2: 4349 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4350:2: 4350 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4351:2: 4351 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4352:2: 4352 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4353:2: 4353 | if(splitpval > alpha) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4354:2: 4354 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4355:2: 4355 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4356:2: 4356 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4357:2: 4357 | if(splitgroupsum < dble(levelcount*minbucket) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4358:2: 4358 | (dble(nodesize(nodeloop)) - splitgroupsum) < dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4359:2: 4359 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4360:2: 4360 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4361:2: 4361 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4362:2: 4362 | allfval(nodenum) = splitwfval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4363:2: 4363 | if(.not. allocated(nodesizesub)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4364:2: 4364 | allocate(nodesizesub(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4365:2: 4365 | nodesizesub(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4366:2: 4366 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4367:2: 4367 | if(.not. allocated(nodesizesubori)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4368:2: 4368 | allocate(nodesizesubori(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4369:2: 4369 | nodesizesubori(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4370:2: 4370 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4371:2: 4371 | sizenum = size(splitfacval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4372:2: 4372 | call threetreesbootnodenumber(bootdata,maxdepth,bootdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4373:2: 4373 | hierarchy+1,nodenummatboot,nodenummatsub,sizel,sizer) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4374:2: 4374 | call threetreesbootnodenumber(oridata,maxdepth,oridatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4375:2: 4375 | hierarchy+1,nodenummatori,nodenummatsubori,sizelori,sizerori) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4376:2: 4376 | nodenummatboot(:,:) = nodenummatsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4377:2: 4377 | nodenummatori(:,:) = nodenummatsubori(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4378:2: 4378 | nodesizesub(2*nodeloop-1) = sizel | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4379:2: 4379 | nodesizesub(2*nodeloop) = sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4380:2: 4380 | nodesizesubori(2*nodeloop-1) = sizelori | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4381:2: 4381 | nodesizesubori(2*nodeloop) = sizerori | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4382:6: 4382 | 2001 continue | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4383:2: 4383 | if(allocated(fval_cache)) deallocate(fval_cache, groupsum_cache, flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4384:2: 4384 | deallocate(anovadata,xynodedata,xynodedataori) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4385:2: 4385 | if(stopcount == 2**treeloop) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4386:2: 4386 | goto 2003 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4387:2: 4387 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4388:2: 4388 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4389:2: 4389 | deallocate(nodesize,nodesizeori) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4390:2: 4390 | allocate(nodesize(2**hierarchy),nodesizeori(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4391:2: 4391 | nodesize(:) = nodesizesub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4392:2: 4392 | nodesizeori(:) = nodesizesubori(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4393:2: 4393 | deallocate(nodesizesub,nodesizesubori) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4394:2: 4394 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4396:2: 4396 | deallocate(nodesize,nodesizeori) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4400:2: 4400 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4401:2: 4401 | integer, intent(in) :: samplesize, pp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4402:2: 4402 | double precision, intent(in) :: sampledata(samplesize,pp+3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4403:2: 4403 | integer, intent(in) :: datatype(pp) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4404:2: 4404 | integer, intent(out) :: splitnum(pp), countvec(pp) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4405:2: 4405 | double precision datasample(samplesize), sortsample(samplesize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4406:2: 4406 | integer i, j, count, facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4407:2: 4407 | do i = 4,pp+3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4408:2: 4408 | datasample = sampledata(:,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4409:2: 4409 | if(datatype(i-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4410:2: 4410 | call threetreesbootdatasum(sampledata(:,i),samplesize,facsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4411:2: 4411 | splitnum(i-3) = facsum - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4412:2: 4412 | elseif(datatype(i-3) == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4413:2: 4413 | call threetreesbootdatasum(sampledata(:,i),samplesize,facsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4414:2: 4414 | splitnum(i-3) = (2 ** (facsum-1)) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4415:2: 4415 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4416:2: 4416 | countvec(i-3) = facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4417:2: 4417 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4420:2: 4420 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4421:2: 4421 | integer,intent(in) :: msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4422:2: 4422 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4423:2: 4423 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4424:2: 4424 | integer, intent(out) :: facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4425:2: 4425 | integer count, j, i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4426:2: 4426 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4427:2: 4427 | call threetreesbootdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4428:2: 4428 | count = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4429:2: 4429 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4430:2: 4430 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4431:2: 4431 | count = count + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4432:2: 4432 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4433:2: 4433 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4434:2: 4434 | facsum = count | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4437:2: 4437 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4438:2: 4438 | integer,intent(in)::start,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4439:2: 4439 | double precision,intent(inout)::datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4440:2: 4440 | double precision x,t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4441:2: 4441 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4442:2: 4442 | x = datavec((start+msize)/2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4443:2: 4443 | i = start | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4444:2: 4444 | j = msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4445:2: 4445 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4446:2: 4446 | do while (datavec(i) < x) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4447:2: 4447 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4448:2: 4448 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4449:2: 4449 | do while (x < datavec(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4450:2: 4450 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4451:2: 4451 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4452:2: 4452 | if (i >= j) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4453:2: 4453 | t = datavec(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4454:2: 4454 | datavec(i) = datavec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4455:2: 4455 | datavec(j) = t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4456:2: 4456 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4457:2: 4457 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4458:2: 4458 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4459:2: 4459 | if (start < i-1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4460:2: 4460 | call threetreesbootdatasort(datavec, start, i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4461:2: 4461 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4462:2: 4462 | if (j+1 < msize) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4463:2: 4463 | call threetreesbootdatasort(datavec, j+1, msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4464:2: 4464 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4465:2: 4465 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4468:2: 4468 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4469:2: 4469 | integer, intent(in) :: varnum,datatype,msize,colnum,splitnum,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4470:2: 4470 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4471:2: 4471 | integer, intent(out) :: splitindmat(splitnum,countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4472:2: 4472 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4473:2: 4473 | if(datatype == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4474:2: 4474 | do i = 1,splitnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4475:2: 4475 | do j = 1,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4476:2: 4476 | if(i >= j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4477:2: 4477 | splitindmat(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4478:2: 4478 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4479:2: 4479 | splitindmat(i,j) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4480:2: 4480 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4481:2: 4481 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4482:2: 4482 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4483:2: 4483 | elseif(datatype == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4484:2: 4484 | idx = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4485:2: 4485 | do i = 0, 2**(countvec-1) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4486:2: 4486 | count_0 = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4487:2: 4487 | count_1 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4488:2: 4488 | splitindmat(idx, 1) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4489:2: 4489 | do j = 0, countvec - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4490:2: 4490 | if (iand(i, 2**j) /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4491:2: 4491 | splitindmat(idx, j+2) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4492:2: 4492 | count_1 = count_1 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4493:2: 4493 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4494:2: 4494 | splitindmat(idx, j+2) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4495:2: 4495 | count_0 = count_0 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4496:2: 4496 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4497:2: 4497 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4498:2: 4498 | if (count_0 > 0 .and. count_1 > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4499:2: 4499 | idx = idx + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4500:2: 4500 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4501:2: 4501 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4502:2: 4502 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4505:2: 4505 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4506:2: 4506 | integer, intent(in) :: countvec,msize,colnum,ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4507:2: 4507 | integer, intent(in) :: splitindmat(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4508:2: 4508 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4509:2: 4509 | double precision, intent(out) :: anovadata(msize,4),facvalout(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4510:2: 4510 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4511:2: 4511 | double precision facval(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4512:2: 4512 | call threetreesbootdataval(xydata(:,ind1),msize,facval,countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4513:2: 4513 | facvalout = facval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4514:2: 4514 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4515:2: 4515 | do j = 1,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4516:2: 4516 | if(xydata(i,ind1) == facval(j)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4517:2: 4517 | anovadata(i,1:3) = xydata(i,1:3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4518:2: 4518 | anovadata(i,4) = splitindmat(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4519:2: 4519 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4520:2: 4520 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4521:2: 4521 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4524:2: 4524 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4525:2: 4525 | integer,intent(in) :: msize, pp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4526:2: 4526 | double precision, intent(in) :: anovadata(msize,4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4527:2: 4527 | double precision, intent(OUT) :: fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4528:2: 4528 | integer, intent(OUT) :: dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4529:2: 4529 | integer i, gi, ti, si, max_subj_id, timecount, nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4530:2: 4530 | double precision ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4531:2: 4531 | double precision ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4532:2: 4532 | integer, allocatable :: subj_map(:), si_arr(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4533:2: 4533 | double precision, allocatable :: ygroup(:), ytime(:), ysubject(:), ygrouptime(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4534:2: 4534 | double precision, allocatable :: ygroupcount(:), ytimecount(:), ysubjectcount(:), ygrouptimecount(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4535:2: 4535 | timecount = nint(maxval(anovadata(:,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4536:2: 4536 | max_subj_id = nint(maxval(anovadata(:,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4537:2: 4537 | allocate(subj_map(max_subj_id)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4538:2: 4538 | subj_map(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4539:2: 4539 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4540:2: 4540 | subj_map(nint(anovadata(i,2))) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4541:2: 4541 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4542:2: 4542 | nsubjects = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4543:2: 4543 | do i = 1, max_subj_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4544:2: 4544 | if (subj_map(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4545:2: 4545 | nsubjects = nsubjects + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4546:2: 4546 | subj_map(i) = nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4547:2: 4547 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4548:2: 4548 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4549:2: 4549 | dfvec(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4550:2: 4550 | dfvec(2) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4551:2: 4551 | dfvec(3) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4552:2: 4552 | dfvec(4) = nsubjects - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4553:2: 4553 | dfvec(5) = (timecount - 1) * (nsubjects - 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4554:2: 4554 | allocate(ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2, timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4555:2: 4555 | allocate(ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2, timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4556:2: 4556 | allocate(si_arr(msize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4557:2: 4557 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4558:2: 4558 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4559:2: 4559 | ymean = sum(anovadata(:,1)) / msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4560:2: 4560 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4561:2: 4561 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4562:2: 4562 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4563:2: 4563 | si = subj_map(nint(anovadata(i,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4564:2: 4564 | si_arr(i) = si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4565:2: 4565 | ygroup(gi) = ygroup(gi) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4566:2: 4566 | ygroupcount(gi) = ygroupcount(gi) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4567:2: 4567 | ytime(ti) = ytime(ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4568:2: 4568 | ytimecount(ti) = ytimecount(ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4569:2: 4569 | ysubject(si) = ysubject(si) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4570:2: 4570 | ysubjectcount(si) = ysubjectcount(si) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4571:2: 4571 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4572:2: 4572 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4573:2: 4573 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4574:2: 4574 | ygroup = ygroup / ygroupcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4575:2: 4575 | ytime = ytime / ytimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4576:2: 4576 | ysubject = ysubject / ysubjectcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4577:2: 4577 | ygrouptime = ygrouptime / ygrouptimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4578:2: 4578 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4579:2: 4579 | ssgrouptime = 0d0; sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4580:2: 4580 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4581:2: 4581 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4582:2: 4582 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4583:2: 4583 | si = si_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4584:2: 4584 | sstotal = sstotal + (anovadata(i,1) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4585:2: 4585 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4586:2: 4586 | sstime = sstime + (ytime(ti) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4587:2: 4587 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4588:2: 4588 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4589:2: 4589 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4590:2: 4590 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4591:2: 4591 | ms(1) = ssgroup / dfvec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4592:2: 4592 | ms(2) = sstime / dfvec(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4593:2: 4593 | ms(3) = ssgrouptime / dfvec(3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4594:2: 4594 | ms(4) = sssubject / dfvec(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4595:2: 4595 | ms(5) = sserr / dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4596:2: 4596 | fval(1) = ms(1) / ms(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4597:2: 4597 | fval(2) = ms(3) / ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4598:2: 4598 | deallocate(subj_map, si_arr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4599:2: 4599 | deallocate(ygroup, ytime, ysubject, ygrouptime) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4600:2: 4600 | deallocate(ygroupcount, ytimecount, ysubjectcount, ygrouptimecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4603:2: 4603 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4604:2: 4604 | integer, intent(in) :: dfvec(5),beta1len,beta2len | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4605:2: 4605 | double precision, intent(in) :: weight, fval(2),beta1(beta1len),beta2(beta2len) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4606:2: 4606 | double precision, intent(out) :: weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4607:2: 4607 | double precision DFD1, DFN1, DFD2, DFN2, TESTVAL1, TESTVAL2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4608:2: 4608 | double precision xb,eps,s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4609:2: 4609 | eps = 1d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4610:2: 4610 | DFD1 = dble(dfvec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4611:2: 4611 | DFN1 = dble(dfvec(4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4612:2: 4612 | DFD2 = dble(dfvec(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4613:2: 4613 | DFN2 = dble(dfvec(5)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4614:2: 4614 | TESTVAL1 = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4615:2: 4615 | TESTVAL2 = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4616:2: 4616 | if(abs(weight - 1d0) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4617:2: 4617 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4618:2: 4618 | call threetreesbootpfdist(DFD1,DFN1,0d0,TESTval1,eps,beta1(int(DFN1)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4619:2: 4619 | weightpval = 1.0d0 - s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4620:2: 4620 | goto 10000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4621:2: 4621 | elseif(abs(weight) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4622:2: 4622 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4623:2: 4623 | call threetreesbootpfdist(DFD2,DFN2,0d0,TESTval2,eps,beta2(int(DFN2)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4624:2: 4624 | weightpval = 1.0d0 - s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4625:2: 4625 | goto 10000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4626:2: 4626 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4627:2: 4627 | xb = (weight*TESTVAL1) + ((1d0-weight)*TESTVAL2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4628:2: 4628 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4629:2: 4629 | call threetreesbootdemethod(xb,weight,DFD1,DFN1,DFD2,DFN2,eps,beta1(int(DFN1)),beta2(int(DFN2)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4630:2: 4630 | weightpval = 1d0-s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4632:2: 4632 | weightpval = max(0d0, min(1d0, weightpval)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4635:2: 4635 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4636:2: 4636 | integer,parameter::kmin=3,kmax=14 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4637:2: 4637 | double precision,parameter::hr=6.d0, c0=0.01d0, pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4638:2: 4638 | double precision,intent(in)::a,b,eps,df1,df2,beta | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4639:2: 4639 | double precision,intent(out)::s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4640:2: 4640 | double precision res,zval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4641:2: 4641 | double precision inv_beta, df_ratio, df1_half, df12_half, form3, df1m2_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4643:2: 4643 | double precision h,s0,xt,wt,t,as,shk,mba,pba,err,seps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4644:2: 4644 | inv_beta = 1d0 / beta | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4645:2: 4645 | df_ratio = df1/df2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4646:2: 4646 | df1_half = df1/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4647:2: 4647 | df12_half = (df1+df2)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4648:2: 4648 | form3 = df_ratio**df1_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4649:2: 4649 | df1m2_half = (df1-2d0)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4654:2: 4654 | zval = pba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4655:2: 4655 | res = inv_beta * form3 * (zval**df1m2_half) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4656:2: 4656 | ((1d0+(df_ratio*zval))**df12_half) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4661:2: 4661 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4662:2: 4662 | nc=2*nc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4663:2: 4663 | h=h*0.5d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4664:2: 4664 | do j=1,nc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4665:2: 4665 | t=dble(2*j-nc-1)*h | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4666:2: 4666 | shk=pi2*sinh(t) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4667:2: 4667 | xt=tanh(shk) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4668:2: 4668 | wt=pi2*cosh(t)*(1d0 - xt*xt) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4669:2: 4669 | zval = mba*xt+pba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4670:2: 4670 | res = inv_beta * form3 * (zval**df1m2_half) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4671:2: 4671 | ((1d0+(df_ratio*zval))**df12_half) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4672:2: 4672 | s=s+res*wt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4673:2: 4673 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4674:2: 4674 | s=s0*0.5d0+s*h*mba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4675:2: 4675 | as=abs(s); err=abs(s-s0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4676:2: 4676 | if(as.ge.1d0)err=err/as | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4677:2: 4677 | if(err.le.seps.and.l.ge.kmin)exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4678:2: 4678 | s0=s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4679:2: 4679 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4682:2: 4682 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4683:2: 4683 | double precision,intent(in)::xb,weight,df11,df12,df21,df22,eps,beta1,beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4685:2: 4685 | integer,parameter::kmin=3, kmax=8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4686:2: 4686 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4713:2: 4713 | if(err.le.0.000001d0 .and. l>6)exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4722:2: 4722 | integer,parameter::kmin=3,kmax=8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4723:2: 4723 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4729:2: 4729 | inv_weight = 1d0-weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4763:2: 4763 | s=s+res*wt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4774:2: 4774 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4775:2: 4775 | double precision,intent(in) :: z,v,weight,df11,df12,df21,df22,beta1,beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4776:2: 4776 | double precision,intent(out) :: res | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4777:2: 4777 | double precision zval,form1,form2,form3,form4,form5,form6,form7,form8,form9,s1,s2,eps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4778:2: 4778 | eps=1d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4779:2: 4779 | s1 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4780:2: 4780 | s2 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4781:2: 4781 | zval = (z-((1d0-weight)*v))/weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4782:2: 4782 | form1 = 1d0 / weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4783:2: 4783 | form2 = 1d0 / beta1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4784:2: 4784 | form3 = (df11/df12)**(df11/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4785:2: 4785 | form4 = zval**((df11-2d0)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4786:2: 4786 | form5 = (1d0+((df11/df12)*zval))**((df11+df12)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4787:2: 4787 | form6 = 1d0 / beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4788:2: 4788 | form7 = (df21/df22)**(df21/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4789:2: 4789 | form8 = v**((df21-2d0)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4790:2: 4790 | form9 = (1d0+((df21/df22)*v))**((df21+df22)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4791:2: 4791 | res = form1 * (form2 * form3 * form4 / form5) * (form6 * form7 * form8 / form9) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4794:2: 4794 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4795:2: 4795 | integer,intent(in) :: msize, facsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4796:2: 4796 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4797:2: 4797 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4798:2: 4798 | double precision, intent(out) :: facval(facsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4799:2: 4799 | integer count, i, j, k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4800:2: 4800 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4801:2: 4801 | call threetreesbootdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4802:2: 4802 | facval(1) = datavecsub(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4803:2: 4803 | k = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4804:2: 4804 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4805:2: 4805 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4806:2: 4806 | k = k + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4807:2: 4807 | facval(k) = datavecsub(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4808:2: 4808 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4809:2: 4809 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4813:2: 4813 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4814:2: 4814 | integer, intent(in) :: msize,colnum,sizenum,splitind1,nodenum,splitindvec(sizenum),hierarchy,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4815:2: 4815 | double precision, intent(in) :: xydata(msize,colnum),splitfacval(sizenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4816:2: 4816 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4817:2: 4817 | integer, intent(out) :: sizel,sizer,nodenummatsub(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4818:2: 4818 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4819:2: 4819 | sizel=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4820:2: 4820 | sizer=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4821:2: 4821 | nodenummatsub(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4822:2: 4822 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4823:2: 4823 | if(nodenummat(i,hierarchy-1) == (nodenum/2)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4824:2: 4824 | do j = 1,sizenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4825:2: 4825 | if(abs(xydata(i,splitind1) - splitfacval(j)) < (1.0d0*(10d0**(-10d0)))) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4826:2: 4826 | if(splitindvec(j) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4827:2: 4827 | nodenummatsub(i,hierarchy) = nodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4828:2: 4828 | sizel=sizel+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4829:2: 4829 | elseif(splitindvec(j) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4830:2: 4830 | nodenummatsub(i,hierarchy) = nodenum + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4831:2: 4831 | sizer=sizer+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4832:2: 4832 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4833:2: 4833 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4834:2: 4834 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4835:2: 4835 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4836:2: 4836 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4839:2: 4839 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4840:2: 4840 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4841:2: 4841 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4842:2: 4842 | integer, intent(in) :: nodenummat(msize,11) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4843:2: 4843 | double precision, intent(out) :: xynodedata(nodesize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4844:2: 4844 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4845:2: 4845 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4846:2: 4846 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4847:2: 4847 | if(nodenummat(i,hierarchy) == nodenum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4848:2: 4848 | xynodedata(j,:) = xydata(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4849:2: 4849 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4850:2: 4850 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4851:2: 4851 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4854:2: 4854 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4855:2: 4855 | integer,intent(in) :: prunind,msize,cv,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4856:2: 4856 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4857:2: 4857 | double precision,intent(in) :: alpha,gamma,allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4858:2: 4858 | double precision,intent(out) :: allgammaval((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4859:2: 4859 | integer nottnodeval,allnodenum,minghnum,prunloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4860:2: 4860 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4861:2: 4861 | double precision minghval,allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4862:2: 4862 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4863:2: 4863 | allgammaval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4864:2: 4864 | if(prunind == 1 .or. alpha < 1d0 .or. gamma >= 0d0 .or. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4865:2: 4865 | goto 3001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4866:2: 4866 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4867:2: 4867 | call threetreesbootcvterminalnodecount(nodenummat,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4868:2: 4868 | call threetreesbootcvweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4869:2: 4869 | allocate(nodenummatnew(msize,maxdepth),nodenummatnewsub(msize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4870:2: 4870 | call threetreesbootcvpruntreemat(nodenummat,maxdepth,msize,minghnum,allfval,allfvalnew,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4871:2: 4871 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4872:2: 4872 | deallocate(nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4873:2: 4873 | allgammaval(2) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4874:2: 4874 | do prunloop = 2,((2**(maxdepth-1))-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4875:2: 4875 | allfvalnewsub(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4876:2: 4876 | call threetreesbootcvterminalnodecount(nodenummatnew,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4877:2: 4877 | if(allnodenum == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4878:2: 4878 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4879:2: 4879 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4880:2: 4880 | call threetreesbootcvweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4881:2: 4881 | allocate(nodenummatnewsub(msize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4882:2: 4882 | call threetreesbootcvpruntreemat(nodenummatnew,maxdepth,msize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4883:2: 4883 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4884:2: 4884 | allfvalnew(:) = allfvalnewsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4885:2: 4885 | deallocate(nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4886:2: 4886 | allgammaval(prunloop+1) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4887:2: 4887 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4891:2: 4891 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4892:2: 4892 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4893:2: 4893 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4894:2: 4894 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4895:2: 4895 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4896:2: 4896 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4897:2: 4897 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4898:2: 4898 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4899:2: 4899 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4900:2: 4900 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4901:2: 4901 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4902:2: 4902 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4903:2: 4903 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4904:2: 4904 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4905:2: 4905 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4906:2: 4906 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4907:2: 4907 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4908:2: 4908 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4909:2: 4909 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4910:2: 4910 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4911:2: 4911 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4912:2: 4912 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4913:2: 4913 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4914:2: 4914 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4915:2: 4915 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4916:2: 4916 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4917:2: 4917 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4918:2: 4918 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4919:2: 4919 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4922:2: 4922 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4923:2: 4923 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4924:2: 4924 | double precision, intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4925:2: 4925 | double precision testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4926:2: 4926 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4927:2: 4927 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4928:2: 4928 | double precision, intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4929:2: 4929 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4930:2: 4930 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4931:2: 4931 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4932:2: 4932 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4933:2: 4933 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4934:2: 4934 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4935:2: 4935 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4936:2: 4936 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4937:2: 4937 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4938:2: 4938 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4939:2: 4939 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4940:2: 4940 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4941:2: 4941 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4942:2: 4942 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4943:2: 4943 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4944:2: 4944 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4945:2: 4945 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4946:2: 4946 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4947:2: 4947 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4948:2: 4948 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4949:2: 4949 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4950:2: 4950 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4951:2: 4951 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4952:2: 4952 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4953:2: 4953 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4954:2: 4954 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4955:2: 4955 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4956:2: 4956 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4957:2: 4957 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4958:2: 4958 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4959:2: 4959 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4960:2: 4960 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4961:2: 4961 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4962:2: 4962 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4963:2: 4963 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4964:2: 4964 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4965:2: 4965 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4968:2: 4968 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4969:2: 4969 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4970:2: 4970 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4971:2: 4971 | double precision, intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4972:2: 4972 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4973:2: 4973 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4974:2: 4974 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4975:2: 4975 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4976:2: 4976 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4977:2: 4977 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4978:2: 4978 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4979:2: 4979 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4980:2: 4980 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4981:2: 4981 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4982:2: 4982 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4983:2: 4983 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4984:2: 4984 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4985:2: 4985 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4986:2: 4986 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4987:2: 4987 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4988:2: 4988 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4989:2: 4989 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4990:2: 4990 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4991:2: 4991 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4992:2: 4992 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4993:2: 4993 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4994:2: 4994 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4995:2: 4995 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:4999:2: 4999 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5000:2: 5000 | integer,intent(in) :: cv,msize,colnum,Ksplit,maxdepth,levelcount,beta1len,beta2len,minbucket,minsplit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5001:2: 5001 | integer,intent(in) :: datatype(colnum-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5002:2: 5002 | integer,intent(in) :: iseed | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5003:2: 5003 | double precision,intent(in) :: alpha,gamma,fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5004:2: 5004 | double precision,intent(in) :: beta1(beta1len),beta2(beta2len),allgammaval((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5005:2: 5005 | double precision,intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5006:2: 5006 | double precision,intent(out) :: bestgammaval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5007:2: 5007 | integer,intent(out) :: cvsplitind(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5008:2: 5008 | integer, allocatable :: cvind(:),cvsize(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5009:2: 5009 | integer, allocatable :: nodenummat(:,:), nodenummattest(:,:),prunenodenummattest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5010:2: 5010 | double precision, allocatable :: meangammacv(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5011:2: 5011 | double precision, allocatable :: gammacvmat(:,:),traindata(:,:),testdata(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5012:2: 5012 | integer cvloop,traindatasize,testdatasize,prunind,i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5013:2: 5013 | double precision allfval((2**maxdepth)-1),gammacv((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5014:2: 5014 | double precision maxgammasub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5015:2: 5015 | if(alpha < 1d0 .or. gamma >= 0d0 .or. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5016:2: 5016 | bestgammaval = gamma | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5017:2: 5017 | allocate(cvind(msize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5018:2: 5018 | cvind(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5019:2: 5019 | cvsplitind(:) = cvind(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5020:2: 5020 | goto 7001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5021:2: 5021 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5022:2: 5022 | allocate(cvind(msize),cvsize(Ksplit),gammacvmat(ksplit,(2**(maxdepth-1))-1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5023:2: 5023 | allocate(meangammacv((2**(maxdepth-1))-1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5024:2: 5024 | call getrngstate() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5025:2: 5025 | call threetreesbootcvdata(XYDATA,msize,colnum,Ksplit,levelcount,cvind,cvsize,iseed) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5026:2: 5026 | call putrngstate() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5027:2: 5027 | cvsplitind(:) = cvind(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5028:2: 5028 | do cvloop = 1,Ksplit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5029:2: 5029 | traindatasize = ((sum(cvsize)-cvsize(cvloop))*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5030:2: 5030 | testdatasize = (cvsize(cvloop)*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5031:2: 5031 | allocate(traindata(traindatasize,colnum),testdata(testdatasize,colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5032:2: 5032 | allocate(nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5033:2: 5033 | call threetreesbootcvdatachoice(XYDATA,msize,colnum,Ksplit,levelcount,cvloop,cvind,cvsize,traindata,testdata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5034:2: 5034 | call threetreesbootcvtreegrowth(traindatasize,testdatasize,traindata,testdata,nodenummattest,fixweight,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5035:2: 5035 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,xydata,datatype,beta1,beta2,beta1len,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5036:2: 5036 | beta2len,nodenummat,allfval,prunind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5037:2: 5037 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5038:2: 5038 | call threetreesbootcvbesttreepruning(traindatasize,testdatasize,maxdepth,nodenummat,nodenummattest,allfval,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5039:2: 5039 | levelcount,colnum,traindata,testdata,allgammaval,gammacv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5040:2: 5040 | gammacvmat(cvloop,:) = gammacv(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5041:2: 5041 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5042:2: 5042 | deallocate(traindata,testdata,nodenummat,nodenummattest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5043:2: 5043 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5044:2: 5044 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5045:2: 5045 | do i = 1,size(allgammaval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5046:2: 5046 | meangammacv(i) = sum(gammacvmat(:,i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5047:2: 5047 | if(meangammacv(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5048:2: 5048 | meangammacv(i) = meangammacv(i) / dble(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5049:2: 5049 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5050:2: 5050 | meangammacv(i) = -1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5051:2: 5051 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5052:2: 5052 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5053:2: 5053 | maxgammasub = maxval(meangammacv) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5054:2: 5054 | do i = 1,size(meangammacv) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5055:2: 5055 | if(meangammacv(i) < maxgammasub .and. meangammacv(i) >= 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5056:2: 5056 | bestgammaval = allgammaval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5057:2: 5057 | maxgammasub = meangammacv(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5058:2: 5058 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5059:2: 5059 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5060:2: 5060 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5064:2: 5064 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5065:2: 5065 | integer, intent(in) :: msize,colnum,Ksplit,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5066:2: 5066 | integer, intent(in) :: iseed | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5067:2: 5067 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5068:2: 5068 | integer, intent(out) :: cvind(msize), cvsize(Ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5069:2: 5069 | integer i,subnum, randval, cvsizecou(Ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5070:2: 5070 | integer, allocatable :: cvindsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5071:2: 5071 | double precision randvalsub,ii | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5072:2: 5072 | subnum = msize/levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5073:2: 5073 | cvsize(:) = subnum/Ksplit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5074:2: 5074 | do i = 1,(subnum - sum(cvsize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5075:2: 5075 | cvsize(i) = cvsize(i) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5076:2: 5076 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5077:2: 5077 | allocate(cvindsub(subnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5078:2: 5078 | cvsizecou(:) = cvsize(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5079:2: 5079 | do i = 1,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5080:2: 5080 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5081:2: 5081 | call unifrand(randvalsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5082:2: 5082 | randval = int(randvalsub * dble(Ksplit)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5083:2: 5083 | if(cvsizecou(randval) > 0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5084:2: 5084 | cvsizecou(randval) = cvsizecou(randval) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5085:2: 5085 | cvindsub(i) = randval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5086:2: 5086 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5087:2: 5087 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5088:2: 5088 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5089:2: 5089 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5090:2: 5090 | do i = 1,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5091:2: 5091 | cvind((levelcount*(i-1)+1):(levelcount*i)) = cvindsub(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5092:2: 5092 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5095:2: 5095 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5096:2: 5096 | integer, intent(in) :: msize,colnum,Ksplit,testind,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5097:2: 5097 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5098:2: 5098 | integer, intent(in) :: cvind(msize),cvsize(Ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5099:2: 5099 | double precision, intent(out) :: traindata(((sum(cvsize)-cvsize(testind))*levelcount),colnum),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5100:2: 5100 | testdata((cvsize(testind)*levelcount),colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5101:2: 5101 | integer i,jtrain,jtest,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5102:2: 5102 | subnum = msize/levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5103:2: 5103 | jtest = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5104:2: 5104 | jtrain = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5105:2: 5105 | do i = 1,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5106:2: 5106 | if(cvind(((i-1)*levelcount)+1) == testind) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5107:2: 5107 | testdata((levelcount*(jtest-1)+1):(levelcount*jtest),:) = xydata((levelcount*(i-1)+1):(levelcount*i),:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5108:2: 5108 | jtest = jtest + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5109:2: 5109 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5110:2: 5110 | traindata((levelcount*(jtrain-1)+1):(levelcount*jtrain),:) = xydata((levelcount*(i-1)+1):(levelcount*i),:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5111:2: 5111 | jtrain = jtrain + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5112:2: 5112 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5113:2: 5113 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5118:2: 5118 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5119:2: 5119 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,beta1len,beta2len,levelcount,minsplit,minbucket,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5120:2: 5120 | integer, intent(in) :: datatype(colnum-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5121:2: 5121 | double precision, intent(in) :: fixweight,alpha | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5122:2: 5122 | double precision, intent(in) :: traindata(traindatasize,colnum),beta1(beta1len),beta2(beta2len) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5123:2: 5123 | double precision, intent(in) :: xydata(msize,colnum),testdata(testdatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5124:2: 5124 | integer, intent(out) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5125:2: 5125 | integer,intent(out) :: prunind | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5126:2: 5126 | double precision,intent(out) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5127:2: 5127 | integer nodenummatsub(traindatasize,maxdepth),nodenummatsubtest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5128:2: 5128 | integer nodenum,hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,separatecou,separateint,sizenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5129:2: 5129 | integer sizel,sizer,sizeltest,sizertest,treeloop,stopcount,nodeloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5130:2: 5130 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5131:2: 5131 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5132:2: 5132 | double precision fval(2),splitfval(2),splitmcppval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5133:2: 5133 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:),splitindvec(:),nodesizetest(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5134:2: 5134 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5135:2: 5135 | double precision, allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5136:2: 5136 | double precision, allocatable :: xynodedata(:,:),xynodedatatest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5137:2: 5137 | double precision, allocatable :: fval_cache(:,:), groupsum_cache(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5138:2: 5138 | integer, allocatable :: flat_idx_vec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5139:2: 5139 | integer :: dfvec_const(5), flat_idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5140:2: 5140 | double precision :: splitgroupsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5141:2: 5141 | logical :: dfvec_set | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5142:2: 5142 | nodenummat(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5143:2: 5143 | nodenummat(:,1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5144:2: 5144 | nodenummattest(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5145:2: 5145 | nodenummattest(:,1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5146:2: 5146 | nodenum = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5147:2: 5147 | hierarchy = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5148:2: 5148 | allfval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5149:2: 5149 | splitmcp = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5150:2: 5150 | allocate(nodesize(2),nodesizetest(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5151:2: 5151 | prunind=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5152:2: 5152 | splitpval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5153:2: 5153 | call threetreesbootcvsplitcount(traindatasize, colnum-3, traindata, DATATYPE, splitnum, countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5154:2: 5154 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5155:2: 5155 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5156:2: 5156 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5157:2: 5157 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5158:2: 5158 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5159:2: 5159 | allocate(anovadata(traindatasize,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5160:2: 5160 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5161:2: 5161 | dfvec_set = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5162:2: 5162 | indcou = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5163:2: 5163 | do ind1=4,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5164:2: 5164 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5165:2: 5165 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5166:2: 5166 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5167:2: 5167 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5168:2: 5168 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5169:2: 5169 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5170:2: 5170 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),traindata,traindatasize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5171:2: 5171 | call threetreesbootcvrepANOVA(traindatasize,colnum,anovadata,fval,dfvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5172:2: 5172 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5173:2: 5173 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5174:2: 5174 | groupsum_cache(indcou) = sum(anovadata(:,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5175:2: 5175 | if (.not. dfvec_set) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5176:2: 5176 | dfvec_const = dfvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5177:2: 5177 | dfvec_set = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5178:2: 5178 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5179:2: 5179 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5180:2: 5180 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5181:2: 5181 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5182:2: 5182 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5183:2: 5183 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5184:2: 5184 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5185:2: 5185 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5186:2: 5186 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5187:2: 5187 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5188:2: 5188 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5189:2: 5189 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5190:2: 5190 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5191:2: 5191 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5192:2: 5192 | allocate(flat_idx_vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5193:2: 5193 | do i = 1,11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5194:2: 5194 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5195:2: 5195 | wfvec(i) = wfmat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5196:2: 5196 | ind1vec(i) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5197:2: 5197 | ind2vec(i) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5198:2: 5198 | flat_idx_vec(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5199:2: 5199 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5200:2: 5200 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5201:2: 5201 | allocate(flat_idx_vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5202:2: 5202 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5203:2: 5203 | wfvec(1) = wfmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5204:2: 5204 | ind1vec(1) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5205:2: 5205 | ind2vec(1) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5206:2: 5206 | flat_idx_vec(1) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5207:2: 5207 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5208:2: 5208 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5209:2: 5209 | do weightind=0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5210:2: 5210 | flat_idx = flat_idx_vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5211:2: 5211 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5212:2: 5212 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5213:2: 5213 | weight = 0.1d0 * dble(weightind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5214:2: 5214 | call threetreesbootcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5215:2: 5215 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5216:2: 5216 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5217:2: 5217 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5218:2: 5218 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5219:2: 5219 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5220:2: 5220 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5221:2: 5221 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5222:2: 5222 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5223:2: 5223 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5224:2: 5224 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5225:2: 5225 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5226:2: 5226 | if(splitpval==0d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5227:2: 5227 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5228:2: 5228 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5229:2: 5229 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5230:2: 5230 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5231:2: 5231 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5232:2: 5232 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5233:2: 5233 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5234:2: 5234 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5235:2: 5235 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5236:2: 5236 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5237:2: 5237 | traindata,traindatasize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5238:2: 5238 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5239:2: 5239 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5240:2: 5240 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5241:2: 5241 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5242:2: 5242 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5243:2: 5243 | call threetreesbootcvdatasum(testdata(:,splitind1),testdatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5244:2: 5244 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5245:2: 5245 | call threetreesbootcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5246:2: 5246 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5247:2: 5247 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5248:2: 5248 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5249:2: 5249 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5250:2: 5250 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5251:2: 5251 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5252:2: 5252 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5253:2: 5253 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5254:2: 5254 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5255:2: 5255 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5256:2: 5256 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5257:2: 5257 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5258:2: 5258 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5259:2: 5259 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5260:2: 5260 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5261:2: 5261 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5262:2: 5262 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5263:2: 5263 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5264:2: 5264 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5265:2: 5265 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5266:2: 5266 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5267:2: 5267 | flat_idx = flat_idx_vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5268:2: 5268 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5269:2: 5269 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5270:2: 5270 | weight = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5271:2: 5271 | call threetreesbootcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5272:2: 5272 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5273:2: 5273 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5274:2: 5274 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5275:2: 5275 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5276:2: 5276 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5277:2: 5277 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5278:2: 5278 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5279:2: 5279 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5280:2: 5280 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5281:2: 5281 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5282:2: 5282 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5283:2: 5283 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5284:2: 5284 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5285:2: 5285 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5286:2: 5286 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5287:2: 5287 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5288:2: 5288 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5289:2: 5289 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5290:2: 5290 | traindata,traindatasize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5291:2: 5291 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5292:2: 5292 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5293:2: 5293 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5294:2: 5294 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5295:2: 5295 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5296:2: 5296 | call threetreesbootcvdatasum(testdata(:,splitind1),testdatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5297:2: 5297 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5298:2: 5298 | call threetreesbootcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5299:2: 5299 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5300:2: 5300 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5301:2: 5301 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5302:2: 5302 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5303:2: 5303 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5304:2: 5304 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5305:2: 5305 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5306:2: 5306 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5307:2: 5307 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5308:2: 5308 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5309:2: 5309 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5310:2: 5310 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5311:2: 5311 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5312:2: 5312 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5313:2: 5313 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5314:2: 5314 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5315:2: 5315 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5316:2: 5316 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5317:2: 5317 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5318:2: 5318 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5319:2: 5319 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5320:2: 5320 | if (splitpval >= 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5321:2: 5321 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5322:2: 5322 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5323:2: 5323 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5324:2: 5324 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5325:2: 5325 | weight = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5326:2: 5326 | call threetreesbootcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5327:2: 5327 | splitmcppval(1) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5328:2: 5328 | weight = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5329:2: 5329 | call threetreesbootcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5330:2: 5330 | splitmcppval(2) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5331:2: 5331 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5332:2: 5332 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5333:2: 5333 | if(splitmcp > alphamcp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5334:2: 5334 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5335:2: 5335 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5336:2: 5336 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5337:2: 5337 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5338:2: 5338 | if(splitpval > alpha) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5339:2: 5339 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5340:2: 5340 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5341:2: 5341 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5342:2: 5342 | if(splitgroupsum < dble(levelcount*minbucket) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5343:2: 5343 | (dble(traindatasize) - splitgroupsum) < dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5344:2: 5344 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5345:2: 5345 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5346:2: 5346 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5347:2: 5347 | deallocate(fval_cache, groupsum_cache, flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5348:2: 5348 | sizenum = size(splitfacval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5349:2: 5349 | call threetreesbootcvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5350:2: 5350 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5351:2: 5351 | call threetreesbootcvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5352:2: 5352 | hierarchy+1,nodenummattest,nodenummatsubtest,sizeltest,sizertest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5353:2: 5353 | nodesize(1) = sizel | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5354:2: 5354 | nodesize(2) = sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5355:2: 5355 | nodesizetest(1) = sizeltest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5356:2: 5356 | nodesizetest(2) = sizertest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5357:2: 5357 | deallocate(anovadata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5358:2: 5358 | allfval(1) = splitwfval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5359:2: 5359 | nodenummat(:,:) = nodenummatsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5360:2: 5360 | nodenummattest(:,:) = nodenummatsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5361:2: 5361 | do treeloop = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5362:2: 5362 | stopcount = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5363:2: 5363 | hierarchy = hierarchy + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5364:2: 5364 | do nodeloop = 1,(2**treeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5365:2: 5365 | if(allocated(wfmat) .or. allocated(indmat) .or. allocated(wfvec) .or. allocated(ind1vec) .or. allocated(ind2vec)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5366:2: 5366 | deallocate(wfmat,indmat,wfvec,ind1vec,ind2vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5367:2: 5367 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5368:2: 5368 | nodenum = nodenum + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5369:2: 5369 | splitpval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5370:2: 5370 | allocate(xynodedata(nodesize(nodeloop),colnum),anovadata(nodesize(nodeloop),4),xynodedatatest(nodesizetest(nodeloop),colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5371:2: 5371 | if(nodesize(nodeloop) < (levelcount*minsplit)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5372:2: 5372 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5373:2: 5373 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5374:2: 5374 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5375:2: 5375 | call threetreesbootcvnodedata(traindata,traindatasize,colnum,nodenum,hierarchy,nodenummat,nodesize(nodeloop),xynodedata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5376:2: 5376 | call threetreesbootcvnodedata(testdata,testdatasize,colnum,nodenum,hierarchy,nodenummattest,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5377:2: 5377 | nodesizetest(nodeloop),xynodedatatest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5378:2: 5378 | call threetreesbootcvsplitcount(nodesize(nodeloop), colnum-3, xynodedata, DATATYPE, splitnum, countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5379:2: 5379 | if(sum(splitnum) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5380:2: 5380 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5381:2: 5381 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5382:2: 5382 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5383:2: 5383 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5384:2: 5384 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5385:2: 5385 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5386:2: 5386 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5387:2: 5387 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5388:2: 5388 | wfmat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5389:2: 5389 | indmat(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5390:2: 5390 | indcou = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5391:2: 5391 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5392:2: 5392 | dfvec_set = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5393:2: 5393 | do ind1=4,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5394:2: 5394 | if(splitnum(ind1-3) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5395:2: 5395 | goto 2000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5396:2: 5396 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5397:2: 5397 | if(allocated(splitindmat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5398:2: 5398 | deallocate(splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5399:2: 5399 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5400:2: 5400 | if(.not. allocated(splitindmat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5401:2: 5401 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5402:2: 5402 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5403:2: 5403 | if(allocated(facvalout)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5404:2: 5404 | deallocate(facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5405:2: 5405 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5406:2: 5406 | if(.not. allocated(facvalout)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5407:2: 5407 | allocate(facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5408:2: 5408 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5409:2: 5409 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5410:2: 5410 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5411:2: 5411 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5412:2: 5412 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5413:2: 5413 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5414:2: 5414 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5415:2: 5415 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5416:2: 5416 | colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5417:2: 5417 | call threetreesbootcvrepANOVA(nodesize(nodeloop),colnum,anovadata,fval,dfvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5418:2: 5418 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5419:2: 5419 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5420:2: 5420 | groupsum_cache(indcou) = sum(anovadata(:,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5421:2: 5421 | if (.not. dfvec_set) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5422:2: 5422 | dfvec_const = dfvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5423:2: 5423 | dfvec_set = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5424:2: 5424 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5425:2: 5425 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5426:2: 5426 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5427:2: 5427 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5428:2: 5428 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5429:2: 5429 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5430:2: 5430 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5431:2: 5431 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5432:2: 5432 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5433:2: 5433 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5434:2: 5434 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5435:2: 5435 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5436:6: 5436 | 2000 continue | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5437:2: 5437 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5438:2: 5438 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5439:2: 5439 | allocate(flat_idx_vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5440:2: 5440 | do i = 1,11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5441:2: 5441 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5442:2: 5442 | wfvec(i) = wfmat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5443:2: 5443 | ind1vec(i) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5444:2: 5444 | ind2vec(i) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5445:2: 5445 | flat_idx_vec(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5446:2: 5446 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5447:2: 5447 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5448:2: 5448 | allocate(flat_idx_vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5449:2: 5449 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5450:2: 5450 | wfvec(1) = wfmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5451:2: 5451 | ind1vec(1) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5452:2: 5452 | ind2vec(1) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5453:2: 5453 | flat_idx_vec(1) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5454:2: 5454 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5455:2: 5455 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5456:2: 5456 | do weightind=0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5457:2: 5457 | flat_idx = flat_idx_vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5458:2: 5458 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5459:2: 5459 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5460:2: 5460 | weight = 0.1d0 * dble(weightind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5461:2: 5461 | call threetreesbootcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5462:2: 5462 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5463:2: 5463 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5464:2: 5464 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5465:2: 5465 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5466:2: 5466 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5467:2: 5467 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5468:2: 5468 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5469:2: 5469 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5470:2: 5470 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5471:2: 5471 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5472:2: 5472 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5473:2: 5473 | if(splitpval==0d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5474:2: 5474 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5475:2: 5475 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5476:2: 5476 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5477:2: 5477 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5478:2: 5478 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5479:2: 5479 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5480:2: 5480 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5481:2: 5481 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5482:2: 5482 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5483:2: 5483 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5484:2: 5484 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5485:2: 5485 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5486:2: 5486 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5487:2: 5487 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5488:2: 5488 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5489:2: 5489 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5490:2: 5490 | call threetreesbootcvdatasum(testdata(:,splitind1),testdatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5491:2: 5491 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5492:2: 5492 | call threetreesbootcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5493:2: 5493 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5494:2: 5494 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5495:2: 5495 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5496:2: 5496 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5497:2: 5497 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5498:2: 5498 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5499:2: 5499 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5500:2: 5500 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5501:2: 5501 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5502:2: 5502 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5503:2: 5503 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5504:2: 5504 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5505:2: 5505 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5506:2: 5506 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5507:2: 5507 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5508:2: 5508 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5509:2: 5509 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5510:2: 5510 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5511:2: 5511 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5512:2: 5512 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5513:2: 5513 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5514:2: 5514 | flat_idx = flat_idx_vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5515:2: 5515 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5516:2: 5516 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5517:2: 5517 | weight = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5518:2: 5518 | call threetreesbootcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5519:2: 5519 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5520:2: 5520 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5521:2: 5521 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5522:2: 5522 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5523:2: 5523 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5524:2: 5524 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5525:2: 5525 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5526:2: 5526 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5527:2: 5527 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5528:2: 5528 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5529:2: 5529 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5530:2: 5530 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5531:2: 5531 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5532:2: 5532 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5533:2: 5533 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5534:2: 5534 | call threetreesbootcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5535:2: 5535 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5536:2: 5536 | call threetreesbootcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5537:2: 5537 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5538:2: 5538 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5539:2: 5539 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5540:2: 5540 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5541:2: 5541 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5542:2: 5542 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5543:2: 5543 | call threetreesbootcvdatasum(testdata(:,splitind1),testdatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5544:2: 5544 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5545:2: 5545 | call threetreesbootcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5546:2: 5546 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5547:2: 5547 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5548:2: 5548 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5549:2: 5549 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5550:2: 5550 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5551:2: 5551 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5552:2: 5552 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5553:2: 5553 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5554:2: 5554 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5555:2: 5555 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5556:2: 5556 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5557:2: 5557 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5558:2: 5558 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5559:2: 5559 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5560:2: 5560 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5561:2: 5561 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5562:2: 5562 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5563:2: 5563 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5564:2: 5564 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5565:2: 5565 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5566:2: 5566 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5567:2: 5567 | if (splitpval >= 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5568:2: 5568 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5569:2: 5569 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5570:2: 5570 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5571:2: 5571 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5572:2: 5572 | weight = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5573:2: 5573 | call threetreesbootcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5574:2: 5574 | splitmcppval(1) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5575:2: 5575 | weight = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5576:2: 5576 | call threetreesbootcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5577:2: 5577 | splitmcppval(2) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5578:2: 5578 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5579:2: 5579 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5580:2: 5580 | if(splitmcp > alphamcp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5581:2: 5581 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5582:2: 5582 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5583:2: 5583 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5584:2: 5584 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5585:2: 5585 | if(splitpval > alpha) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5586:2: 5586 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5587:2: 5587 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5588:2: 5588 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5589:2: 5589 | if(splitgroupsum < dble(levelcount*minbucket) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5590:2: 5590 | (dble(nodesize(nodeloop)) - splitgroupsum) < dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5591:2: 5591 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5592:2: 5592 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5593:2: 5593 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5594:2: 5594 | allfval(nodenum) = splitwfval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5595:2: 5595 | if(.not. allocated(nodesizesub)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5596:2: 5596 | allocate(nodesizesub(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5597:2: 5597 | nodesizesub(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5598:2: 5598 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5599:2: 5599 | if(.not. allocated(nodesizesubtest)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5600:2: 5600 | allocate(nodesizesubtest(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5601:2: 5601 | nodesizesubtest(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5602:2: 5602 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5603:2: 5603 | sizenum = size(splitfacval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5604:2: 5604 | call threetreesbootcvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5605:2: 5605 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5606:2: 5606 | call threetreesbootcvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5607:2: 5607 | hierarchy+1,nodenummattest,nodenummatsubtest,sizeltest,sizertest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5608:2: 5608 | nodenummat(:,:) = nodenummatsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5609:2: 5609 | nodenummattest(:,:) = nodenummatsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5610:2: 5610 | nodesizesub(2*nodeloop-1) = sizel | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5611:2: 5611 | nodesizesub(2*nodeloop) = sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5612:2: 5612 | nodesizesubtest(2*nodeloop-1) = sizeltest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5613:2: 5613 | nodesizesubtest(2*nodeloop) = sizertest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5614:6: 5614 | 2001 continue | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5615:2: 5615 | if(allocated(fval_cache)) deallocate(fval_cache, groupsum_cache, flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5616:2: 5616 | deallocate(anovadata,xynodedata,xynodedatatest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5617:2: 5617 | if(stopcount == 2**treeloop) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5618:2: 5618 | goto 2003 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5619:2: 5619 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5620:2: 5620 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5621:2: 5621 | deallocate(nodesize,nodesizetest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5622:2: 5622 | allocate(nodesize(2**hierarchy),nodesizetest(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5623:2: 5623 | nodesize(:) = nodesizesub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5624:2: 5624 | nodesizetest(:) = nodesizesubtest(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5625:2: 5625 | deallocate(nodesizesub,nodesizesubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5626:2: 5626 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5628:2: 5628 | deallocate(nodesize,nodesizetest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5632:2: 5632 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5633:2: 5633 | integer, intent(in) :: samplesize, pp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5634:2: 5634 | double precision, intent(in) :: sampledata(samplesize,pp+3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5635:2: 5635 | integer, intent(in) :: datatype(pp) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5636:2: 5636 | integer, intent(out) :: splitnum(pp), countvec(pp) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5637:2: 5637 | double precision datasample(samplesize), sortsample(samplesize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5638:2: 5638 | integer i, j, count, facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5639:2: 5639 | do i = 4,pp+3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5640:2: 5640 | datasample = sampledata(:,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5641:2: 5641 | if(datatype(i-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5642:2: 5642 | call threetreesbootcvdatasum(sampledata(:,i),samplesize,facsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5643:2: 5643 | splitnum(i-3) = facsum - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5644:2: 5644 | elseif(datatype(i-3) == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5645:2: 5645 | call threetreesbootcvdatasum(sampledata(:,i),samplesize,facsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5646:2: 5646 | splitnum(i-3) = (2 ** (facsum-1)) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5647:2: 5647 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5648:2: 5648 | countvec(i-3) = facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5649:2: 5649 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5652:2: 5652 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5653:2: 5653 | integer,intent(in) :: msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5654:2: 5654 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5655:2: 5655 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5656:2: 5656 | integer, intent(out) :: facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5657:2: 5657 | integer count, j, i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5658:2: 5658 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5659:2: 5659 | call threetreesbootcvdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5660:2: 5660 | count = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5661:2: 5661 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5662:2: 5662 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5663:2: 5663 | count = count + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5664:2: 5664 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5665:2: 5665 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5666:2: 5666 | facsum = count | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5669:2: 5669 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5670:2: 5670 | integer,intent(in)::start,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5671:2: 5671 | double precision,intent(inout)::datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5672:2: 5672 | double precision x,t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5673:2: 5673 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5674:2: 5674 | x = datavec((start+msize)/2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5675:2: 5675 | i = start | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5676:2: 5676 | j = msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5677:2: 5677 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5678:2: 5678 | do while (datavec(i) < x) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5679:2: 5679 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5680:2: 5680 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5681:2: 5681 | do while (x < datavec(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5682:2: 5682 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5683:2: 5683 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5684:2: 5684 | if (i >= j) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5685:2: 5685 | t = datavec(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5686:2: 5686 | datavec(i) = datavec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5687:2: 5687 | datavec(j) = t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5688:2: 5688 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5689:2: 5689 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5690:2: 5690 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5691:2: 5691 | if (start < i-1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5692:2: 5692 | call threetreesbootcvdatasort(datavec, start, i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5693:2: 5693 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5694:2: 5694 | if (j+1 < msize) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5695:2: 5695 | call threetreesbootcvdatasort(datavec, j+1, msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5696:2: 5696 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5697:2: 5697 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5700:2: 5700 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5701:2: 5701 | integer, intent(in) :: varnum,datatype,msize,colnum,splitnum,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5702:2: 5702 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5703:2: 5703 | integer, intent(out) :: splitindmat(splitnum,countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5704:2: 5704 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5705:2: 5705 | if(datatype == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5706:2: 5706 | do i = 1,splitnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5707:2: 5707 | do j = 1,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5708:2: 5708 | if(i >= j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5709:2: 5709 | splitindmat(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5710:2: 5710 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5711:2: 5711 | splitindmat(i,j) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5712:2: 5712 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5713:2: 5713 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5714:2: 5714 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5715:2: 5715 | elseif(datatype == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5716:2: 5716 | idx = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5717:2: 5717 | do i = 0, 2**(countvec-1) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5718:2: 5718 | count_0 = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5719:2: 5719 | count_1 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5720:2: 5720 | splitindmat(idx, 1) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5721:2: 5721 | do j = 0, countvec - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5722:2: 5722 | if (iand(i, 2**j) /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5723:2: 5723 | splitindmat(idx, j+2) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5724:2: 5724 | count_1 = count_1 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5725:2: 5725 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5726:2: 5726 | splitindmat(idx, j+2) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5727:2: 5727 | count_0 = count_0 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5728:2: 5728 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5729:2: 5729 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5730:2: 5730 | if (count_0 > 0 .and. count_1 > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5731:2: 5731 | idx = idx + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5732:2: 5732 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5733:2: 5733 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5734:2: 5734 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5737:2: 5737 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5738:2: 5738 | integer, intent(in) :: countvec,msize,colnum,ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5739:2: 5739 | integer, intent(in) :: splitindmat(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5740:2: 5740 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5741:2: 5741 | double precision, intent(out) :: anovadata(msize,4),facvalout(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5742:2: 5742 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5743:2: 5743 | double precision facval(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5744:2: 5744 | call threetreesbootcvdataval(xydata(:,ind1),msize,facval,countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5745:2: 5745 | facvalout = facval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5746:2: 5746 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5747:2: 5747 | do j = 1,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5748:2: 5748 | if(xydata(i,ind1) == facval(j)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5749:2: 5749 | anovadata(i,1:3) = xydata(i,1:3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5750:2: 5750 | anovadata(i,4) = splitindmat(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5751:2: 5751 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5752:2: 5752 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5753:2: 5753 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5756:2: 5756 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5757:2: 5757 | integer,intent(in) :: msize, pp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5758:2: 5758 | double precision, intent(in) :: anovadata(msize,4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5759:2: 5759 | double precision, intent(OUT) :: fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5760:2: 5760 | integer, intent(OUT) :: dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5761:2: 5761 | integer i, gi, ti, si, max_subj_id, timecount, nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5762:2: 5762 | double precision ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5763:2: 5763 | double precision ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5764:2: 5764 | integer, allocatable :: subj_map(:), si_arr(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5765:2: 5765 | double precision, allocatable :: ygroup(:), ytime(:), ysubject(:), ygrouptime(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5766:2: 5766 | double precision, allocatable :: ygroupcount(:), ytimecount(:), ysubjectcount(:), ygrouptimecount(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5767:2: 5767 | timecount = nint(maxval(anovadata(:,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5768:2: 5768 | max_subj_id = nint(maxval(anovadata(:,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5769:2: 5769 | allocate(subj_map(max_subj_id)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5770:2: 5770 | subj_map(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5771:2: 5771 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5772:2: 5772 | subj_map(nint(anovadata(i,2))) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5773:2: 5773 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5774:2: 5774 | nsubjects = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5775:2: 5775 | do i = 1, max_subj_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5776:2: 5776 | if (subj_map(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5777:2: 5777 | nsubjects = nsubjects + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5778:2: 5778 | subj_map(i) = nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5779:2: 5779 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5780:2: 5780 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5781:2: 5781 | dfvec(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5782:2: 5782 | dfvec(2) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5783:2: 5783 | dfvec(3) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5784:2: 5784 | dfvec(4) = nsubjects - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5785:2: 5785 | dfvec(5) = (timecount - 1) * (nsubjects - 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5786:2: 5786 | allocate(ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2, timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5787:2: 5787 | allocate(ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2, timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5788:2: 5788 | allocate(si_arr(msize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5789:2: 5789 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5790:2: 5790 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5791:2: 5791 | ymean = sum(anovadata(:,1)) / msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5792:2: 5792 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5793:2: 5793 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5794:2: 5794 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5795:2: 5795 | si = subj_map(nint(anovadata(i,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5796:2: 5796 | si_arr(i) = si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5797:2: 5797 | ygroup(gi) = ygroup(gi) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5798:2: 5798 | ygroupcount(gi) = ygroupcount(gi) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5799:2: 5799 | ytime(ti) = ytime(ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5800:2: 5800 | ytimecount(ti) = ytimecount(ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5801:2: 5801 | ysubject(si) = ysubject(si) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5802:2: 5802 | ysubjectcount(si) = ysubjectcount(si) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5803:2: 5803 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5804:2: 5804 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5805:2: 5805 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5806:2: 5806 | ygroup = ygroup / ygroupcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5807:2: 5807 | ytime = ytime / ytimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5808:2: 5808 | ysubject = ysubject / ysubjectcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5809:2: 5809 | ygrouptime = ygrouptime / ygrouptimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5810:2: 5810 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5811:2: 5811 | ssgrouptime = 0d0; sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5812:2: 5812 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5813:2: 5813 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5814:2: 5814 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5815:2: 5815 | si = si_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5816:2: 5816 | sstotal = sstotal + (anovadata(i,1) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5817:2: 5817 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5818:2: 5818 | sstime = sstime + (ytime(ti) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5819:2: 5819 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5820:2: 5820 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5821:2: 5821 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5822:2: 5822 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5823:2: 5823 | ms(1) = ssgroup / dfvec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5824:2: 5824 | ms(2) = sstime / dfvec(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5825:2: 5825 | ms(3) = ssgrouptime / dfvec(3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5826:2: 5826 | ms(4) = sssubject / dfvec(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5827:2: 5827 | ms(5) = sserr / dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5828:2: 5828 | fval(1) = ms(1) / ms(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5829:2: 5829 | fval(2) = ms(3) / ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5830:2: 5830 | deallocate(subj_map, si_arr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5831:2: 5831 | deallocate(ygroup, ytime, ysubject, ygrouptime) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5832:2: 5832 | deallocate(ygroupcount, ytimecount, ysubjectcount, ygrouptimecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5835:2: 5835 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5836:2: 5836 | integer, intent(in) :: dfvec(5),beta1len,beta2len | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5837:2: 5837 | double precision, intent(in) :: weight, fval(2),beta1(beta1len),beta2(beta2len) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5838:2: 5838 | double precision, intent(out) :: weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5839:2: 5839 | double precision DFD1, DFN1, DFD2, DFN2, TESTVAL1, TESTVAL2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5840:2: 5840 | double precision xb,eps,s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5841:2: 5841 | eps = 1d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5842:2: 5842 | DFD1 = dble(dfvec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5843:2: 5843 | DFN1 = dble(dfvec(4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5844:2: 5844 | DFD2 = dble(dfvec(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5845:2: 5845 | DFN2 = dble(dfvec(5)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5846:2: 5846 | TESTVAL1 = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5847:2: 5847 | TESTVAL2 = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5848:2: 5848 | if(abs(weight - 1d0) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5849:2: 5849 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5850:2: 5850 | call threetreesbootcvpfdist(DFD1,DFN1,0d0,TESTval1,eps,beta1(int(DFN1)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5851:2: 5851 | weightpval = 1.0d0 - s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5852:2: 5852 | goto 10000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5853:2: 5853 | elseif(abs(weight) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5854:2: 5854 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5855:2: 5855 | call threetreesbootcvpfdist(DFD2,DFN2,0d0,TESTval2,eps,beta2(int(DFN2)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5856:2: 5856 | weightpval = 1.0d0 - s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5857:2: 5857 | goto 10000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5858:2: 5858 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5859:2: 5859 | xb = (weight*TESTVAL1) + ((1d0-weight)*TESTVAL2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5860:2: 5860 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5861:2: 5861 | call threetreesbootcvdemethod(xb,weight,DFD1,DFN1,DFD2,DFN2,eps,beta1(int(DFN1)),beta2(int(DFN2)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5862:2: 5862 | weightpval = 1d0-s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5864:2: 5864 | weightpval = max(0d0, min(1d0, weightpval)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5867:2: 5867 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5868:2: 5868 | integer,parameter::kmin=3,kmax=14 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5869:2: 5869 | double precision,parameter::hr=6.d0, c0=0.01d0, pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5870:2: 5870 | double precision,intent(in)::a,b,eps,df1,df2,beta | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5871:2: 5871 | double precision,intent(out)::s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5872:2: 5872 | double precision res,zval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5873:2: 5873 | double precision inv_beta, df_ratio, df1_half, df12_half, form3, df1m2_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5875:2: 5875 | double precision h,s0,xt,wt,t,as,shk,mba,pba,err,seps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5876:2: 5876 | inv_beta = 1d0 / beta | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5877:2: 5877 | df_ratio = df1/df2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5878:2: 5878 | df1_half = df1/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5879:2: 5879 | df12_half = (df1+df2)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5880:2: 5880 | form3 = df_ratio**df1_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5881:2: 5881 | df1m2_half = (df1-2d0)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5886:2: 5886 | zval = pba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5887:2: 5887 | res = inv_beta * form3 * (zval**df1m2_half) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5888:2: 5888 | ((1d0+(df_ratio*zval))**df12_half) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5893:2: 5893 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5894:2: 5894 | nc=2*nc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5895:2: 5895 | h=h*0.5d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5896:2: 5896 | do j=1,nc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5897:2: 5897 | t=dble(2*j-nc-1)*h | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5898:2: 5898 | shk=pi2*sinh(t) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5899:2: 5899 | xt=tanh(shk) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5900:2: 5900 | wt=pi2*cosh(t)*(1d0 - xt*xt) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5901:2: 5901 | zval = mba*xt+pba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5902:2: 5902 | res = inv_beta * form3 * (zval**df1m2_half) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5903:2: 5903 | ((1d0+(df_ratio*zval))**df12_half) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5904:2: 5904 | s=s+res*wt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5905:2: 5905 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5906:2: 5906 | s=s0*0.5d0+s*h*mba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5907:2: 5907 | as=abs(s); err=abs(s-s0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5908:2: 5908 | if(as.ge.1d0)err=err/as | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5909:2: 5909 | if(err.le.seps.and.l.ge.kmin)exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5910:2: 5910 | s0=s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5911:2: 5911 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5914:2: 5914 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5915:2: 5915 | double precision,intent(in)::xb,weight,df11,df12,df21,df22,eps,beta1,beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5917:2: 5917 | integer,parameter::kmin=3, kmax=8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5918:2: 5918 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5945:2: 5945 | if(err.le.0.000001d0 .and. l>6)exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5954:2: 5954 | integer,parameter::kmin=3,kmax=8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5955:2: 5955 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5961:2: 5961 | inv_weight = 1d0-weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:5995:2: 5995 | s=s+res*wt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6006:2: 6006 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6007:2: 6007 | double precision,intent(in) :: z,v,weight,df11,df12,df21,df22,beta1,beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6008:2: 6008 | double precision,intent(out) :: res | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6009:2: 6009 | double precision zval,form1,form2,form3,form4,form5,form6,form7,form8,form9,s1,s2,eps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6010:2: 6010 | eps=1d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6011:2: 6011 | s1 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6012:2: 6012 | s2 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6013:2: 6013 | zval = (z-((1d0-weight)*v))/weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6014:2: 6014 | form1 = 1d0 / weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6015:2: 6015 | form2 = 1d0 / beta1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6016:2: 6016 | form3 = (df11/df12)**(df11/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6017:2: 6017 | form4 = zval**((df11-2d0)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6018:2: 6018 | form5 = (1d0+((df11/df12)*zval))**((df11+df12)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6019:2: 6019 | form6 = 1d0 / beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6020:2: 6020 | form7 = (df21/df22)**(df21/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6021:2: 6021 | form8 = v**((df21-2d0)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6022:2: 6022 | form9 = (1d0+((df21/df22)*v))**((df21+df22)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6023:2: 6023 | res = form1 * (form2 * form3 * form4 / form5) * (form6 * form7 * form8 / form9) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6026:2: 6026 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6027:2: 6027 | integer,intent(in) :: msize, facsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6028:2: 6028 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6029:2: 6029 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6030:2: 6030 | double precision, intent(out) :: facval(facsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6031:2: 6031 | integer count, i, j, k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6032:2: 6032 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6033:2: 6033 | call threetreesbootcvdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6034:2: 6034 | facval(1) = datavecsub(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6035:2: 6035 | k = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6036:2: 6036 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6037:2: 6037 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6038:2: 6038 | k = k + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6039:2: 6039 | facval(k) = datavecsub(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6040:2: 6040 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6041:2: 6041 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6045:2: 6045 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6046:2: 6046 | integer, intent(in) :: msize,colnum,sizenum,splitind1,nodenum,splitindvec(sizenum),hierarchy,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6047:2: 6047 | double precision, intent(in) :: xydata(msize,colnum),splitfacval(sizenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6048:2: 6048 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6049:2: 6049 | integer, intent(out) :: sizel,sizer,nodenummatsub(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6050:2: 6050 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6051:2: 6051 | sizel=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6052:2: 6052 | sizer=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6053:2: 6053 | nodenummatsub(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6054:2: 6054 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6055:2: 6055 | if(nodenummat(i,hierarchy-1) == (nodenum/2)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6056:2: 6056 | do j = 1,sizenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6057:2: 6057 | if(abs(xydata(i,splitind1) - splitfacval(j)) < (1.0d0*(10d0**(-10d0)))) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6058:2: 6058 | if(splitindvec(j) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6059:2: 6059 | nodenummatsub(i,hierarchy) = nodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6060:2: 6060 | sizel=sizel+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6061:2: 6061 | elseif(splitindvec(j) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6062:2: 6062 | nodenummatsub(i,hierarchy) = nodenum + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6063:2: 6063 | sizer=sizer+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6064:2: 6064 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6065:2: 6065 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6066:2: 6066 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6067:2: 6067 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6068:2: 6068 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6071:2: 6071 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6072:2: 6072 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6073:2: 6073 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6074:2: 6074 | integer, intent(in) :: nodenummat(msize,11) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6075:2: 6075 | double precision, intent(out) :: xynodedata(nodesize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6076:2: 6076 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6077:2: 6077 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6078:2: 6078 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6079:2: 6079 | if(nodenummat(i,hierarchy) == nodenum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6080:2: 6080 | xynodedata(j,:) = xydata(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6081:2: 6081 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6082:2: 6082 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6083:2: 6083 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6086:2: 6086 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6087:2: 6087 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6088:2: 6088 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6089:2: 6089 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6090:2: 6090 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6091:2: 6091 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6092:2: 6092 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6093:2: 6093 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6094:2: 6094 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6095:2: 6095 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6096:2: 6096 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6097:2: 6097 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6098:2: 6098 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6099:2: 6099 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6100:2: 6100 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6101:2: 6101 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6102:2: 6102 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6103:2: 6103 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6104:2: 6104 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6105:2: 6105 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6106:2: 6106 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6107:2: 6107 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6108:2: 6108 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6109:2: 6109 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6110:2: 6110 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6111:2: 6111 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6112:2: 6112 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6113:2: 6113 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6114:2: 6114 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6117:2: 6117 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6118:2: 6118 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6119:2: 6119 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6120:2: 6120 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6121:2: 6121 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6122:2: 6122 | double precision, intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6123:2: 6123 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6124:2: 6124 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6125:2: 6125 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6126:2: 6126 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6127:2: 6127 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6128:2: 6128 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6129:2: 6129 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6130:2: 6130 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6131:2: 6131 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6132:2: 6132 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6133:2: 6133 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6134:2: 6134 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6135:2: 6135 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6136:2: 6136 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6137:2: 6137 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6138:2: 6138 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6139:2: 6139 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6140:2: 6140 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6141:2: 6141 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6142:2: 6142 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6143:2: 6143 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6144:2: 6144 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6145:2: 6145 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6146:2: 6146 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6147:2: 6147 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6148:2: 6148 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6149:2: 6149 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6150:2: 6150 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6151:2: 6151 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6152:2: 6152 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6153:2: 6153 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6154:2: 6154 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6155:2: 6155 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6156:2: 6156 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6157:2: 6157 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6158:2: 6158 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6159:2: 6159 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6162:2: 6162 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6163:2: 6163 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6164:2: 6164 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6165:2: 6165 | double precision, intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6166:2: 6166 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6167:2: 6167 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6168:2: 6168 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6169:2: 6169 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6170:2: 6170 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6171:2: 6171 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6172:2: 6172 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6173:2: 6173 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6174:2: 6174 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6175:2: 6175 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6176:2: 6176 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6177:2: 6177 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6178:2: 6178 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6179:2: 6179 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6180:2: 6180 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6181:2: 6181 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6182:2: 6182 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6183:2: 6183 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6184:2: 6184 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6185:2: 6185 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6186:2: 6186 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6187:2: 6187 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6188:2: 6188 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6189:2: 6189 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6192:2: 6192 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6193:2: 6193 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6194:2: 6194 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6195:2: 6195 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6196:2: 6196 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6197:2: 6197 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6198:2: 6198 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6199:2: 6199 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6200:2: 6200 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6201:2: 6201 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6202:2: 6202 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6203:2: 6203 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6204:2: 6204 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6205:2: 6205 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6206:2: 6206 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6207:2: 6207 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6208:2: 6208 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6209:2: 6209 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6210:2: 6210 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6214:2: 6214 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6215:2: 6215 | integer, intent(in) :: maxdepth,levelcount,traindatasize,colnum,testdatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6216:2: 6216 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6217:2: 6217 | double precision, intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6218:2: 6218 | double precision, intent(in) :: allfval((2**maxdepth)-1),allgammaval((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6219:2: 6219 | double precision, intent(out) :: gammacv((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6220:2: 6220 | double precision allgammavaltrain((2**(maxdepth-1))-1),losspredsumvec((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6221:2: 6221 | double precision allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6222:2: 6222 | double precision losspredsum,minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6223:2: 6223 | integer cvprunloop,minghnum,allnodenum,nottnodeval,i,j,k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6224:2: 6224 | integer nottnodevec((2**maxdepth)-1),ncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6225:2: 6225 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:),nodenummatnewtest(:,:),nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6226:2: 6226 | allgammavaltrain(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6227:2: 6227 | gammacv(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6228:2: 6228 | losspredsumvec(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6229:2: 6229 | call threetreesbootcvlosspredict(traindata,traindatasize,nodenummat,testdata,colnum,levelcount,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6230:2: 6230 | nodenummattest,testdatasize,maxdepth,losspredsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6231:2: 6231 | losspredsumvec(1) = losspredsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6232:2: 6232 | allocate(nodenummatnew(traindatasize,maxdepth),nodenummatnewtest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6233:2: 6233 | allfvalnew(:) = allfval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6234:2: 6234 | nodenummatnew(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6235:2: 6235 | nodenummatnewtest(:,:) = nodenummattest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6236:2: 6236 | do cvprunloop = 1,((2**(maxdepth-1))-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6237:2: 6237 | allfvalnewsub(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6238:2: 6238 | call threetreesbootcvbestterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6239:2: 6239 | if(allnodenum == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6240:2: 6240 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6241:2: 6241 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6242:2: 6242 | call threetreesbootcvbestweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6243:2: 6243 | allocate(nodenummatnewsub(traindatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6244:2: 6244 | call threetreesbootcvbestpruntreemat(nodenummatnew,maxdepth,traindatasize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6245:2: 6245 | call threetreesbootcvbestpruntreemattest(nodenummatnewtest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6246:2: 6246 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6247:2: 6247 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6248:2: 6248 | allfvalnew(:) = allfvalnewsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6249:2: 6249 | deallocate(nodenummatnewsub,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6250:2: 6250 | allgammavaltrain(cvprunloop+1) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6251:2: 6251 | call threetreesbootcvlosspredict(traindata,traindatasize,nodenummatnew,testdata,colnum,levelcount,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6252:2: 6252 | nodenummatnewtest,testdatasize,maxdepth,losspredsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6253:2: 6253 | losspredsumvec(cvprunloop+1) = losspredsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6254:2: 6254 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6255:2: 6255 | gammacv(1) = losspredsumvec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6256:2: 6256 | j = 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6257:2: 6257 | do i = 2,size(allgammaval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6258:2: 6258 | if(allgammaval(i) == 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6259:2: 6259 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6260:2: 6260 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6261:2: 6261 | if(allgammaval(i) <= allgammavaltrain(j)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6262:2: 6262 | gammacv(i) = losspredsumvec(j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6263:2: 6263 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6264:2: 6264 | do k = 1,size(allgammaval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6265:2: 6265 | if(allgammaval(i) > allgammavaltrain(j+k) .and. allgammavaltrain(j+k) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6266:2: 6266 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6267:2: 6267 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6268:2: 6268 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6269:2: 6269 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6270:2: 6270 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6271:2: 6271 | gammacv(i) = losspredsumvec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6272:2: 6272 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6273:2: 6273 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6274:2: 6274 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6278:2: 6278 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6279:2: 6279 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6280:2: 6280 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6281:2: 6281 | double precision, intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6282:2: 6282 | double precision, intent(out) :: losspredsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6283:2: 6283 | double precision, allocatable :: timepred(:,:),losspred(:,:), timepredcou(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6284:2: 6284 | integer i,j,k,l | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6285:2: 6285 | allocate(timepred(((2**maxdepth)-1),levelcount),losspred(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6286:2: 6286 | allocate(timepredcou(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6287:2: 6287 | timepred(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6288:2: 6288 | losspred(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6289:2: 6289 | timepredcou(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6290:2: 6290 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6291:2: 6291 | do j = 1,traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6292:2: 6292 | if(sum(nodenummat(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6293:2: 6293 | goto 3010 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6294:2: 6294 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6295:2: 6295 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6296:2: 6296 | if(nodenummat(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6297:2: 6297 | timepred(nodenummat(j,maxdepth),int(traindata(j,3))) = timepred(nodenummat(j,maxdepth),int(traindata(j,3))) + traindata(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6298:2: 6298 | timepredcou(nodenummat(j,maxdepth),int(traindata(j,3))) = timepredcou(nodenummat(j,maxdepth),int(traindata(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6299:2: 6299 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6300:2: 6300 | elseif(nodenummat(j,i) > 0 .and. nodenummat(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6301:2: 6301 | timepred(nodenummat(j,i),int(traindata(j,3))) = timepred(nodenummat(j,i),int(traindata(j,3))) + traindata(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6302:2: 6302 | timepredcou(nodenummat(j,i),int(traindata(j,3))) = timepredcou(nodenummat(j,i),int(traindata(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6303:2: 6303 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6304:2: 6304 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6305:2: 6305 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6307:2: 6307 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6308:2: 6308 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6309:2: 6309 | do j = 1,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6310:2: 6310 | timepred(i,j) = timepred(i,j)/timepredcou(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6311:2: 6311 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6312:2: 6312 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6313:2: 6313 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6314:2: 6314 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6315:2: 6315 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6316:2: 6316 | do j=1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6317:2: 6317 | if(2**(j-1) <= i .and. i < 2**j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6318:2: 6318 | k = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6319:2: 6319 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6320:2: 6320 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6321:2: 6321 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6322:2: 6322 | do l = 1,testdatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6323:2: 6323 | if(nodenummattest(l,k) == i) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6324:2: 6324 | losspred(i,int(testdata(l,3))) = losspred(i,int(testdata(l,3))) + ((testdata(l,1) - timepred(i,int(testdata(l,3))))**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6325:2: 6325 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6326:2: 6326 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6327:2: 6327 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6328:2: 6328 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6329:2: 6329 | losspredsum = sum(losspred) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6330:2: 6330 | deallocate(timepred,losspred,timepredcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6333:2: 6333 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6334:2: 6334 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6335:2: 6335 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6336:2: 6336 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6337:2: 6337 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6338:2: 6338 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6339:2: 6339 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6340:2: 6340 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6341:2: 6341 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6342:2: 6342 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6343:2: 6343 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6344:2: 6344 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6345:2: 6345 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6346:2: 6346 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6347:2: 6347 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6348:2: 6348 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6349:2: 6349 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6350:2: 6350 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6351:2: 6351 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6352:2: 6352 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6353:2: 6353 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6354:2: 6354 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6355:2: 6355 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6356:2: 6356 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6357:2: 6357 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6358:2: 6358 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6359:2: 6359 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6360:2: 6360 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6361:2: 6361 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6364:2: 6364 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6365:2: 6365 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6366:2: 6366 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6367:2: 6367 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6368:2: 6368 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6369:2: 6369 | double precision, intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6370:2: 6370 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6371:2: 6371 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6372:2: 6372 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6373:2: 6373 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6374:2: 6374 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6375:2: 6375 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6376:2: 6376 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6377:2: 6377 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6378:2: 6378 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6379:2: 6379 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6380:2: 6380 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6381:2: 6381 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6382:2: 6382 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6383:2: 6383 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6384:2: 6384 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6385:2: 6385 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6386:2: 6386 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6387:2: 6387 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6388:2: 6388 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6389:2: 6389 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6390:2: 6390 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6391:2: 6391 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6392:2: 6392 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6393:2: 6393 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6394:2: 6394 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6395:2: 6395 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6396:2: 6396 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6397:2: 6397 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6398:2: 6398 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6399:2: 6399 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6400:2: 6400 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6401:2: 6401 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6402:2: 6402 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6403:2: 6403 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6404:2: 6404 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6405:2: 6405 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6406:2: 6406 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6409:2: 6409 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6410:2: 6410 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6411:2: 6411 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6412:2: 6412 | double precision, intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6413:2: 6413 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6414:2: 6414 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6415:2: 6415 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6416:2: 6416 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6417:2: 6417 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6418:2: 6418 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6419:2: 6419 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6420:2: 6420 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6421:2: 6421 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6422:2: 6422 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6423:2: 6423 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6424:2: 6424 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6425:2: 6425 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6426:2: 6426 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6427:2: 6427 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6428:2: 6428 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6429:2: 6429 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6430:2: 6430 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6431:2: 6431 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6432:2: 6432 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6433:2: 6433 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6434:2: 6434 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6435:2: 6435 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6436:2: 6436 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6439:2: 6439 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6440:2: 6440 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6441:2: 6441 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6442:2: 6442 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6443:2: 6443 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6444:2: 6444 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6445:2: 6445 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6446:2: 6446 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6447:2: 6447 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6448:2: 6448 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6449:2: 6449 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6450:2: 6450 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6451:2: 6451 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6452:2: 6452 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6453:2: 6453 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6454:2: 6454 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6455:2: 6455 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6456:2: 6456 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6457:2: 6457 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6461:2: 6461 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6462:2: 6462 | integer,intent(in) :: prunind,testdatasize,maxdepth,traindatasize,cv | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6463:2: 6463 | integer,intent(in) :: nodenummattest(testdatasize,maxdepth),nodenummat(traindatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6464:2: 6464 | double precision,intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6465:2: 6465 | double precision,intent(in) :: bestgammaval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6466:2: 6466 | integer,intent(out) :: prunenodenummattest(testdatasize,maxdepth),prunenodenummat(traindatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6467:2: 6467 | double precision gammavec((2**(maxdepth-1))-1),allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6468:2: 6468 | double precision minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6469:2: 6469 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6470:2: 6470 | integer nottnodeval,allnodenum,minghnum,prunloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6471:2: 6471 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:),nodenummatnewtest(:,:),nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6472:2: 6472 | if(bestgammaval <= 0d0 .or. prunind==1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6473:2: 6473 | prunenodenummat(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6474:2: 6474 | prunenodenummattest(:,:) = nodenummattest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6475:2: 6475 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6476:2: 6476 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6477:2: 6477 | gammavec(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6478:2: 6478 | call threetreesbootgterminalnodecount(nodenummat,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6479:2: 6479 | call threetreesbootgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6480:2: 6480 | gammavec(1) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6481:2: 6481 | if(gammavec(1) > bestgammaval .and. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6482:2: 6482 | prunenodenummat(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6483:2: 6483 | prunenodenummattest(:,:) = nodenummattest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6484:2: 6484 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6485:2: 6485 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6486:2: 6486 | allocate(nodenummatnew(traindatasize,maxdepth),nodenummatnewsub(traindatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6487:2: 6487 | allocate(nodenummatnewtest(testdatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6488:2: 6488 | call threetreesbootgpruntreemat(nodenummat,maxdepth,traindatasize,minghnum,allfval,allfvalnew,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6489:2: 6489 | call threetreesbootgpruntreemattest(nodenummattest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6490:2: 6490 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6491:2: 6491 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6492:2: 6492 | deallocate(nodenummatnewsub,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6493:2: 6493 | if(bestgammaval == minghval .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6494:2: 6494 | prunenodenummat(:,:) = nodenummatnew(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6495:2: 6495 | prunenodenummattest(:,:) = nodenummatnewtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6496:2: 6496 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6497:2: 6497 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6498:2: 6498 | do prunloop = 2,((2**(maxdepth-1))-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6499:2: 6499 | allfvalnewsub(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6500:2: 6500 | call threetreesbootgterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6501:2: 6501 | if(allnodenum == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6502:2: 6502 | prunenodenummattest(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6503:2: 6503 | prunenodenummattest(:,1) = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6504:2: 6504 | prunenodenummat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6505:2: 6505 | prunenodenummat(:,1) = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6506:2: 6506 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6507:2: 6507 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6508:2: 6508 | call threetreesbootgweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6509:2: 6509 | gammavec(prunloop) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6510:2: 6510 | if(gammavec(prunloop-1) < bestgammaval .and. gammavec(prunloop) > bestgammaval .and. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6511:2: 6511 | prunenodenummat(:,:) = nodenummatnew(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6512:2: 6512 | prunenodenummattest(:,:) = nodenummatnewtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6513:2: 6513 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6514:2: 6514 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6515:2: 6515 | allocate(nodenummatnewsub(traindatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6516:2: 6516 | call threetreesbootgpruntreemat(nodenummatnew,maxdepth,traindatasize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6517:2: 6517 | call threetreesbootgpruntreemattest(nodenummatnewtest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6518:2: 6518 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6519:2: 6519 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6520:2: 6520 | allfvalnew(:) = allfvalnewsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6521:2: 6521 | deallocate(nodenummatnewsub,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6522:2: 6522 | if(bestgammaval == minghval .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6523:2: 6523 | prunenodenummat(:,:) = nodenummatnew(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6524:2: 6524 | prunenodenummattest(:,:) = nodenummatnewtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6525:2: 6525 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6526:2: 6526 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6527:2: 6527 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6531:2: 6531 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6532:2: 6532 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6533:2: 6533 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6534:2: 6534 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6535:2: 6535 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6536:2: 6536 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6537:2: 6537 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6538:2: 6538 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6539:2: 6539 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6540:2: 6540 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6541:2: 6541 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6542:2: 6542 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6543:2: 6543 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6544:2: 6544 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6545:2: 6545 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6546:2: 6546 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6547:2: 6547 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6548:2: 6548 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6549:2: 6549 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6550:2: 6550 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6551:2: 6551 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6552:2: 6552 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6553:2: 6553 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6554:2: 6554 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6555:2: 6555 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6556:2: 6556 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6557:2: 6557 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6558:2: 6558 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6559:2: 6559 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6562:2: 6562 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6563:2: 6563 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6564:2: 6564 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6565:2: 6565 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6566:2: 6566 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6567:2: 6567 | double precision, intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6568:2: 6568 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6569:2: 6569 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6570:2: 6570 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6571:2: 6571 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6572:2: 6572 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6573:2: 6573 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6574:2: 6574 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6575:2: 6575 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6576:2: 6576 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6577:2: 6577 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6578:2: 6578 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6579:2: 6579 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6580:2: 6580 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6581:2: 6581 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6582:2: 6582 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6583:2: 6583 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6584:2: 6584 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6585:2: 6585 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6586:2: 6586 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6587:2: 6587 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6588:2: 6588 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6589:2: 6589 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6590:2: 6590 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6591:2: 6591 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6592:2: 6592 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6593:2: 6593 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6594:2: 6594 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6595:2: 6595 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6596:2: 6596 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6597:2: 6597 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6598:2: 6598 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6599:2: 6599 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6600:2: 6600 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6601:2: 6601 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6602:2: 6602 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6603:2: 6603 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6604:2: 6604 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6607:2: 6607 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6608:2: 6608 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6609:2: 6609 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6610:2: 6610 | double precision, intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6611:2: 6611 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6612:2: 6612 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6613:2: 6613 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6614:2: 6614 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6615:2: 6615 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6616:2: 6616 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6617:2: 6617 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6618:2: 6618 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6619:2: 6619 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6620:2: 6620 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6621:2: 6621 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6622:2: 6622 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6623:2: 6623 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6624:2: 6624 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6625:2: 6625 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6626:2: 6626 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6627:2: 6627 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6628:2: 6628 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6629:2: 6629 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6630:2: 6630 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6631:2: 6631 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6632:2: 6632 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6633:2: 6633 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6634:2: 6634 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6637:2: 6637 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6638:2: 6638 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6639:2: 6639 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6640:2: 6640 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6641:2: 6641 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6642:2: 6642 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6643:2: 6643 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6644:2: 6644 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6645:2: 6645 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6646:2: 6646 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6647:2: 6647 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6648:2: 6648 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6649:2: 6649 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6650:2: 6650 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6651:2: 6651 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6652:2: 6652 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6653:2: 6653 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6654:2: 6654 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6655:2: 6655 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6659:2: 6659 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6660:2: 6660 | integer, intent(in) :: datasizeori,datasizeboot,levelcount,colnum,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6661:2: 6661 | integer, intent(in) :: prunenodenummatboot(datasizeboot,maxdepth),prunenodenummatori(datasizeori,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6662:2: 6662 | double precision, intent(in) :: bootDATA(datasizeboot,colnum),XYDATA(datasizeori,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6663:2: 6663 | integer, intent(out) :: datatnnodenum(datasizeori) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6664:2: 6664 | double precision, intent(out) :: predvec(datasizeori) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6665:2: 6665 | integer tndatacount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6666:2: 6666 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6667:2: 6667 | double precision, allocatable :: timepredsum(:,:),timepredcou(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6668:2: 6668 | double precision tnodepredmat((2**maxdepth)-1,levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6669:2: 6669 | allocate(timepredsum((2**maxdepth)-1,levelcount),timepredcou((2**maxdepth)-1,levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6670:2: 6670 | timepredsum(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6671:2: 6671 | timepredcou(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6672:2: 6672 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6673:2: 6673 | do j = 1,datasizeboot | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6674:2: 6674 | if(sum(prunenodenummatboot(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6675:2: 6675 | goto 3010 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6676:2: 6676 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6677:2: 6677 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6678:2: 6678 | if(prunenodenummatboot(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6679:2: 6679 | timepredsum(prunenodenummatboot(j,maxdepth),int(bootDATA(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6680:2: 6680 | timepredsum(prunenodenummatboot(j,maxdepth),int(bootDATA(j,3))) + bootDATA(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6681:2: 6681 | timepredcou(prunenodenummatboot(j,maxdepth),int(bootDATA(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6682:2: 6682 | timepredcou(prunenodenummatboot(j,maxdepth),int(bootDATA(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6683:2: 6683 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6684:2: 6684 | cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6685:2: 6685 | elseif(prunenodenummatboot(j,i) > 0 .and. prunenodenummatboot(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6686:2: 6686 | timepredsum(prunenodenummatboot(j,i),int(bootDATA(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6687:2: 6687 | timepredsum(prunenodenummatboot(j,i),int(bootDATA(j,3))) + bootDATA(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6688:2: 6688 | timepredcou(prunenodenummatboot(j,i),int(bootDATA(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6689:2: 6689 | timepredcou(prunenodenummatboot(j,i),int(bootDATA(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6690:2: 6690 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6691:2: 6691 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6692:2: 6692 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6694:2: 6694 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6695:2: 6695 | if(sum(prunenodenummatori(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6696:2: 6696 | goto 3020 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6697:2: 6697 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6698:2: 6698 | do j = 1,datasizeori | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6699:2: 6699 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6700:2: 6700 | if(prunenodenummatori(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6701:2: 6701 | datatnnodenum(j) = prunenodenummatori(j,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6702:2: 6702 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6703:2: 6703 | cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6704:2: 6704 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6705:2: 6705 | if(prunenodenummatori(j,i) > 0 .and. prunenodenummatori(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6706:2: 6706 | datatnnodenum(j) = prunenodenummatori(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6707:2: 6707 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6708:2: 6708 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6709:2: 6709 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6711:2: 6711 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6712:2: 6712 | if(abs(sum(timepredsum(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6713:2: 6713 | do j = 1,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6714:2: 6714 | tnodepredmat(i,j) = timepredsum(i,j)/timepredcou(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6715:2: 6715 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6716:2: 6716 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6717:2: 6717 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6718:2: 6718 | do i = 1,datasizeori | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6719:2: 6719 | predvec(i) = tnodepredmat(datatnnodenum(i),int(xydata(i,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6720:2: 6720 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6724:2: 6724 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6725:2: 6725 | integer, intent(in) :: msize,loops,levelcount,mins,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6726:2: 6726 | double precision, intent(in) :: predvecmat(msize,loops),xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6727:2: 6727 | integer, intent(in) :: datatnnodenummat(msize,loops) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6728:2: 6728 | double precision, intent(out) :: bettertreelossval(mins,5),bettertreemaxval(mins,5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6729:2: 6729 | integer, intent(out) :: bettertreenum(mins,6) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6730:2: 6730 | double precision, allocatable :: randmat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6731:2: 6731 | integer ind1,ind2,ind3,samplesize,i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6732:2: 6732 | integer combinations(3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6733:2: 6733 | integer losscomb(mins,3),randmaxcomb(mins,3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6734:2: 6734 | double precision lossvec(mins,5),randmaxvec(mins,5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6735:2: 6735 | double precision predmean(msize),randindexval,randval(3),lossval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6736:2: 6736 | double precision worst_loss, worst_randmax | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6737:2: 6737 | integer worst_idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6738:2: 6738 | logical, allocatable :: has_split(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6739:2: 6739 | allocate(randmat(loops,loops)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6740:2: 6740 | allocate(has_split(loops)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6741:2: 6741 | samplesize = msize/levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6742:2: 6742 | do i = 1,loops | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6743:2: 6743 | has_split(i) = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6744:2: 6744 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6745:2: 6745 | if(datatnnodenummat(j,i) /= datatnnodenummat(1,i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6746:2: 6746 | has_split(i) = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6747:2: 6747 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6748:2: 6748 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6749:2: 6749 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6750:2: 6750 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6751:2: 6751 | randmat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6752:2: 6752 | do i = 1,loops | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6753:2: 6753 | if(.not. has_split(i)) cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6754:2: 6754 | do j = (i+1),loops | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6755:2: 6755 | if(.not. has_split(j)) cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6756:2: 6756 | call threetreesrandindex(samplesize,levelcount,datatnnodenummat(:,i),datatnnodenummat(:,j),msize,randindexval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6757:2: 6757 | if(isnan(randindexval)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6758:2: 6758 | randmat(i,j) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6759:2: 6759 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6760:2: 6760 | randmat(i,j) = randindexval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6761:2: 6761 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6762:2: 6762 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6763:2: 6763 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6764:2: 6764 | lossvec(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6765:2: 6765 | randmaxvec(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6766:2: 6766 | losscomb(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6767:2: 6767 | randmaxcomb(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6768:2: 6768 | do i = 1,mins | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6769:2: 6769 | lossvec(i,1) = huge(1d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6770:2: 6770 | randmaxvec(i,1) = huge(1d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6771:2: 6771 | randmaxvec(i,3:5) = 2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6772:2: 6772 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6773:2: 6773 | do ind1 = 1, (loops-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6774:2: 6774 | if(.not. has_split(ind1)) cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6775:2: 6775 | do ind2 = (ind1 + 1), (loops-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6776:2: 6776 | if(.not. has_split(ind2)) cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6777:2: 6777 | do ind3 = (ind2 + 1), loops | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6778:2: 6778 | if(.not. has_split(ind3)) cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6779:2: 6779 | combinations(1) = ind1 ; combinations(2) = ind2 ; combinations(3) = ind3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6780:2: 6780 | predmean(:) = (predvecmat(:,ind1) + predvecmat(:,ind2) + predvecmat(:,ind3)) / 3d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6781:2: 6781 | lossval = sum((xydata(:,1) - predmean(:))*(xydata(:,1) - predmean(:))) / dble(samplesize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6782:2: 6782 | randval(1) = randmat(ind1,ind2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6783:2: 6783 | randval(2) = randmat(ind1,ind3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6784:2: 6784 | randval(3) = randmat(ind2,ind3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6785:2: 6785 | worst_loss = lossvec(1,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6786:2: 6786 | worst_idx = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6787:2: 6787 | do i = 2,mins | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6788:2: 6788 | if(lossvec(i,1) > worst_loss) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6789:2: 6789 | worst_loss = lossvec(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6790:2: 6790 | worst_idx = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6791:2: 6791 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6792:2: 6792 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6793:2: 6793 | if(lossval < worst_loss) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6794:2: 6794 | lossvec(worst_idx,1) = lossval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6795:2: 6795 | losscomb(worst_idx,:) = combinations(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6796:2: 6796 | lossvec(worst_idx,2) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6797:2: 6797 | lossvec(worst_idx,3:5) = randval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6798:2: 6798 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6799:2: 6799 | worst_randmax = maxval(randmaxvec(1,3:5)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6800:2: 6800 | worst_idx = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6801:2: 6801 | do i = 2,mins | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6802:2: 6802 | if(maxval(randmaxvec(i,3:5)) > worst_randmax) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6803:2: 6803 | worst_randmax = maxval(randmaxvec(i,3:5)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6804:2: 6804 | worst_idx = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6805:2: 6805 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6806:2: 6806 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6807:2: 6807 | if(maxval(randval(:)) < worst_randmax) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6808:2: 6808 | randmaxvec(worst_idx,1) = lossval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6809:2: 6809 | randmaxcomb(worst_idx,:) = combinations(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6810:2: 6810 | randmaxvec(worst_idx,2) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6811:2: 6811 | randmaxvec(worst_idx,3:5) = randval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6812:2: 6812 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6813:2: 6813 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6814:2: 6814 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6815:2: 6815 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6816:2: 6816 | deallocate(randmat, has_split) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6817:2: 6817 | do i = 1,mins | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6818:2: 6818 | bettertreenum(i,1:3) = losscomb(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6819:2: 6819 | bettertreenum(i,4:6) = randmaxcomb(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6820:2: 6820 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6821:2: 6821 | bettertreelossval(:,:) = lossvec(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6822:2: 6822 | bettertreemaxval(:,:) = randmaxvec(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6825:2: 6825 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6826:2: 6826 | integer, intent(in) :: msize,samplesize,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6827:2: 6827 | integer, intent(in) :: datatnnodenum(msize),datatnnodenumtrue(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6828:2: 6828 | double precision, intent(out) :: randindexval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6829:2: 6829 | integer tncount,tncounttrue,i,j,k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6830:2: 6830 | integer datatnnodenumnorm(msize),datatnnodenumtruenorm(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6831:2: 6831 | integer subtnnodenumnorm(samplesize),subtnnodenumtruenorm(samplesize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6832:2: 6832 | double precision form1,form2,form3,form4,formval,rowsum,colsum,denom,num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6833:2: 6833 | integer nz,r,c | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6834:2: 6834 | logical same | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6835:2: 6835 | double precision, allocatable :: tnval(:),tntrueval(:),conttable(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6836:2: 6836 | call threetreestcdatasum(dble(datatnnodenum(:)),msize,tncount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6837:2: 6837 | call threetreestcdatasum(dble(datatnnodenumtrue(:)),msize,tncounttrue) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6838:2: 6838 | allocate(tnval(tncount),tntrueval(tncounttrue)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6839:2: 6839 | call threetreestcdataval(dble(datatnnodenum(:)),msize,tnval,tncount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6840:2: 6840 | call threetreestcdataval(dble(datatnnodenumtrue(:)),msize,tntrueval,tncounttrue) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6841:2: 6841 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6842:2: 6842 | do j = 1,tncount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6843:2: 6843 | if(datatnnodenum(i) == int(tnval(j))) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6844:2: 6844 | datatnnodenumnorm(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6845:2: 6845 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6846:2: 6846 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6847:2: 6847 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6848:2: 6848 | do k = 1,tncounttrue | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6849:2: 6849 | if(datatnnodenumtrue(i) == int(tntrueval(k))) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6850:2: 6850 | datatnnodenumtruenorm(i) = k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6851:2: 6851 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6852:2: 6852 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6853:2: 6853 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6854:2: 6854 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6855:2: 6855 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6856:2: 6856 | do i = 1,samplesize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6857:2: 6857 | subtnnodenumnorm(i) = datatnnodenumnorm(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6858:2: 6858 | subtnnodenumtruenorm(i) = datatnnodenumtruenorm(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6859:2: 6859 | j = j + levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6860:2: 6860 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6861:2: 6861 | allocate(conttable(tncount,tncounttrue)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6862:2: 6862 | conttable(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6863:2: 6863 | do i = 1,samplesize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6864:2: 6864 | conttable(subtnnodenumnorm(i),subtnnodenumtruenorm(i)) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6865:2: 6865 | conttable(subtnnodenumnorm(i),subtnnodenumtruenorm(i)) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6866:2: 6866 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6867:2: 6867 | form1 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6868:2: 6868 | do i = 1,tncount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6869:2: 6869 | do j = 1,tncounttrue | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6870:2: 6870 | formval = conttable(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6871:2: 6871 | if(formval > 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6872:2: 6872 | form1 = form1 + formval * (formval - 1d0) / 2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6873:2: 6873 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6874:2: 6874 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6875:2: 6875 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6876:2: 6876 | form2 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6877:2: 6877 | do i = 1,tncount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6878:2: 6878 | rowsum = sum(conttable(i,:)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6879:2: 6879 | if(rowsum > 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6880:2: 6880 | form2 = form2 + rowsum * (rowsum - 1d0) / 2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6881:2: 6881 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6882:2: 6882 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6883:2: 6883 | form3 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6884:2: 6884 | do j = 1,tncounttrue | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6885:2: 6885 | colsum = sum(conttable(:,j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6886:2: 6886 | if(colsum > 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6887:2: 6887 | form3 = form3 + colsum * (colsum - 1d0) / 2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6888:2: 6888 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6889:2: 6889 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6890:2: 6890 | form4 = dble(samplesize) * dble(samplesize - 1) / 2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6891:2: 6891 | denom = 0.5d0 * (form2 + form3) - (form2 * form3) / form4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6892:2: 6892 | num = form1 - (form2 * form3) / form4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6893:2: 6893 | if(abs(denom) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6894:2: 6894 | if(abs(num) > 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6895:2: 6895 | randindexval = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6896:2: 6896 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6897:2: 6897 | same = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6898:2: 6898 | do r = 1, tncount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6899:2: 6899 | nz = count(conttable(r,:) > 0d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6900:2: 6900 | if(nz > 1) same = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6901:2: 6901 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6902:2: 6902 | do c = 1, tncounttrue | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6903:2: 6903 | nz = count(conttable(:,c) > 0d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6904:2: 6904 | if(nz > 1) same = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6905:2: 6905 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6906:2: 6906 | if(same) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6907:2: 6907 | randindexval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6908:2: 6908 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6909:2: 6909 | randindexval = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6910:2: 6910 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6911:2: 6911 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6912:2: 6912 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6913:2: 6913 | randindexval = num / denom | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6914:2: 6914 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6915:2: 6915 | deallocate(conttable,tnval,tntrueval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6918:2: 6918 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6919:2: 6919 | integer,intent(in) :: msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6920:2: 6920 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6921:2: 6921 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6922:2: 6922 | integer, intent(out) :: facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6923:2: 6923 | integer count, j, i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6924:2: 6924 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6925:2: 6925 | call threetreestcdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6926:2: 6926 | count = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6927:2: 6927 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6928:2: 6928 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6929:2: 6929 | count = count + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6930:2: 6930 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6931:2: 6931 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6932:2: 6932 | facsum = count | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6935:2: 6935 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6936:2: 6936 | integer,intent(in)::start,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6937:2: 6937 | double precision,intent(inout)::datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6938:2: 6938 | double precision x,t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6939:2: 6939 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6940:2: 6940 | x = datavec((start+msize)/2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6941:2: 6941 | i = start | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6942:2: 6942 | j = msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6943:2: 6943 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6944:2: 6944 | do while (datavec(i) < x) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6945:2: 6945 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6946:2: 6946 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6947:2: 6947 | do while (x < datavec(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6948:2: 6948 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6949:2: 6949 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6950:2: 6950 | if (i >= j) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6951:2: 6951 | t = datavec(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6952:2: 6952 | datavec(i) = datavec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6953:2: 6953 | datavec(j) = t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6954:2: 6954 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6955:2: 6955 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6956:2: 6956 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6957:2: 6957 | if (start < i-1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6958:2: 6958 | call threetreestcdatasort(datavec, start, i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6959:2: 6959 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6960:2: 6960 | if (j+1 < msize) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6961:2: 6961 | call threetreestcdatasort(datavec, j+1, msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6962:2: 6962 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6963:2: 6963 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6966:2: 6966 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6967:2: 6967 | integer,intent(in) :: msize, facsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6968:2: 6968 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6969:2: 6969 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6970:2: 6970 | double precision, intent(out) :: facval(facsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6971:2: 6971 | integer count, i, j, k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6972:2: 6972 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6973:2: 6973 | call threetreestcdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6974:2: 6974 | facval(1) = datavecsub(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6975:2: 6975 | k = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6976:2: 6976 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6977:2: 6977 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6978:2: 6978 | k = k + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6979:2: 6979 | facval(k) = datavecsub(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6980:2: 6980 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6981:2: 6981 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6984:2: 6984 | beta1len,beta2len,nodenummat,allfval,prunind,Rsplitmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6985:2: 6985 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6986:2: 6986 | integer,intent(in) :: msize,colnum,levelcount,beta1len,beta2len,maxdepth,minsplit,minbucket | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6987:2: 6987 | integer,intent(in) :: datatype(colnum-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6988:2: 6988 | double precision,intent(in) :: fixweight,alpha | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6989:2: 6989 | double precision,intent(in) :: xydata(msize,colnum),beta1(beta1len),beta2(beta2len) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6990:2: 6990 | double precision, intent(out) :: Rsplitmat((2**maxdepth)-1,10) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6991:2: 6991 | double precision,intent(out) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6992:2: 6992 | integer,intent(out) :: prunind | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6993:2: 6993 | integer,intent(out) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6994:2: 6994 | double precision splitpval,weightval,weight,weightpval,splitwfval,splitweight,splitmcp,alphamcp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6995:2: 6995 | double precision fval(2),splitfval(2),splitmcppval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6996:2: 6996 | integer nodenum, hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,sizenum,sizer,sizel,treeloop,stopcount,nodeloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6997:2: 6997 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5),nodenummatsub(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6998:2: 6998 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:), splitindvec(:),nodesizesub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:6999:2: 6999 | double precision,allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),xynodedata(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7000:2: 7000 | double precision, allocatable :: fval_cache(:,:), groupsum_cache(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7001:2: 7001 | integer, allocatable :: flat_idx_vec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7002:2: 7002 | integer :: dfvec_const(5), flat_idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7003:2: 7003 | double precision :: splitgroupsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7004:2: 7004 | logical :: dfvec_set | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7005:2: 7005 | Rsplitmat(:,:) = 0.0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7006:2: 7006 | nodenummat(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7007:2: 7007 | nodenummat(:,1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7008:2: 7008 | nodenum = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7009:2: 7009 | hierarchy = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7010:2: 7010 | allfval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7011:2: 7011 | splitmcp = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7012:2: 7012 | allocate(nodesize(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7013:2: 7013 | prunind=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7014:2: 7014 | splitpval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7015:2: 7015 | call threetreessplitcount(msize, colnum-3, xydata, DATATYPE, splitnum, countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7016:2: 7016 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7017:2: 7017 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7018:2: 7018 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7019:2: 7019 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7020:2: 7020 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7021:2: 7021 | allocate(anovadata(msize,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7022:2: 7022 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7023:2: 7023 | dfvec_set = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7024:2: 7024 | indcou = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7025:2: 7025 | do ind1=4,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7026:2: 7026 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7027:2: 7027 | call threetreessplitmat(ind1,datatype(ind1-3),xydata,msize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7028:2: 7028 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7029:2: 7029 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7030:2: 7030 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7031:2: 7031 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7032:2: 7032 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),xydata,msize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7033:2: 7033 | call threetreesrepANOVA(msize,colnum,anovadata,fval,dfvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7034:2: 7034 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7035:2: 7035 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7036:2: 7036 | groupsum_cache(indcou) = sum(anovadata(:,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7037:2: 7037 | if (.not. dfvec_set) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7038:2: 7038 | dfvec_const = dfvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7039:2: 7039 | dfvec_set = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7040:2: 7040 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7041:2: 7041 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7042:2: 7042 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7043:2: 7043 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7044:2: 7044 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7045:2: 7045 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7046:2: 7046 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7047:2: 7047 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7048:2: 7048 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7049:2: 7049 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7050:2: 7050 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7051:2: 7051 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7052:2: 7052 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7053:2: 7053 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7054:2: 7054 | allocate(flat_idx_vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7055:2: 7055 | do i = 1,11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7056:2: 7056 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7057:2: 7057 | wfvec(i) = wfmat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7058:2: 7058 | ind1vec(i) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7059:2: 7059 | ind2vec(i) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7060:2: 7060 | flat_idx_vec(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7061:2: 7061 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7062:2: 7062 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7063:2: 7063 | allocate(flat_idx_vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7064:2: 7064 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7065:2: 7065 | wfvec(1) = wfmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7066:2: 7066 | ind1vec(1) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7067:2: 7067 | ind2vec(1) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7068:2: 7068 | flat_idx_vec(1) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7069:2: 7069 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7070:2: 7070 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7071:2: 7071 | do weightind=0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7072:2: 7072 | flat_idx = flat_idx_vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7073:2: 7073 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7074:2: 7074 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7075:2: 7075 | weight = 0.1d0 * dble(weightind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7076:2: 7076 | call threetreesweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7077:2: 7077 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7078:2: 7078 | (dble(msize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7079:2: 7079 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7080:2: 7080 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7081:2: 7081 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7082:2: 7082 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7083:2: 7083 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7084:2: 7084 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7085:2: 7085 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7086:2: 7086 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7087:2: 7087 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7088:2: 7088 | if(splitpval==0d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7089:2: 7089 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7090:2: 7090 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7091:2: 7091 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7092:2: 7092 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7093:2: 7093 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7094:2: 7094 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7095:2: 7095 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7096:2: 7096 | call threetreessplitmat(ind1,datatype(ind1-3),xydata,msize,colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7097:2: 7097 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7098:2: 7098 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7099:2: 7099 | xydata,msize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7100:2: 7100 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7101:2: 7101 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7102:2: 7102 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7103:2: 7103 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7104:2: 7104 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7105:2: 7105 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7106:2: 7106 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7107:2: 7107 | flat_idx = flat_idx_vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7108:2: 7108 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7109:2: 7109 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7110:2: 7110 | weight = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7111:2: 7111 | call threetreesweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7112:2: 7112 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7113:2: 7113 | (dble(msize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7114:2: 7114 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7115:2: 7115 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7116:2: 7116 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7117:2: 7117 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7118:2: 7118 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7119:2: 7119 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7120:2: 7120 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7121:2: 7121 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7122:2: 7122 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7123:2: 7123 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7124:2: 7124 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7125:2: 7125 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7126:2: 7126 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7127:2: 7127 | call threetreessplitmat(ind1,datatype(ind1-3),xydata,msize,colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7128:2: 7128 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7129:2: 7129 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7130:2: 7130 | xydata,msize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7131:2: 7131 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7132:2: 7132 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7133:2: 7133 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7134:2: 7134 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7135:2: 7135 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7136:2: 7136 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7137:2: 7137 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7138:2: 7138 | if (splitpval >= 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7139:2: 7139 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7140:2: 7140 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7141:2: 7141 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7142:2: 7142 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7143:2: 7143 | weight = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7144:2: 7144 | call threetreesweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7145:2: 7145 | splitmcppval(1) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7146:2: 7146 | weight = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7147:2: 7147 | call threetreesweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7148:2: 7148 | splitmcppval(2) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7149:2: 7149 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7150:2: 7150 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7151:2: 7151 | if(splitmcp > alphamcp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7152:2: 7152 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7153:2: 7153 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7154:2: 7154 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7155:2: 7155 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7156:2: 7156 | if(splitpval > alpha) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7157:2: 7157 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7158:2: 7158 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7159:2: 7159 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7160:2: 7160 | if(splitgroupsum <= dble(levelcount*minbucket) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7161:2: 7161 | (dble(msize) - splitgroupsum) <= dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7162:2: 7162 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7163:2: 7163 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7164:2: 7164 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7165:2: 7165 | deallocate(fval_cache, groupsum_cache, flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7166:2: 7166 | Rsplitmat(1,1) =dble(nodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7167:2: 7167 | Rsplitmat(1,2) = splitweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7168:2: 7168 | Rsplitmat(1,3) = 1d0-splitweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7169:2: 7169 | Rsplitmat(1,4) = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7170:2: 7170 | Rsplitmat(1,5) = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7171:2: 7171 | Rsplitmat(1,6) = splitfval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7172:2: 7172 | Rsplitmat(1,7) = splitfval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7173:2: 7173 | Rsplitmat(1,8) = splitweight*splitfval(1) + (1-splitweight)*splitfval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7174:2: 7174 | Rsplitmat(1,9) = splitpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7175:2: 7175 | Rsplitmat(1,10) = splitmcp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7176:2: 7176 | sizenum = size(splitfacval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7177:2: 7177 | call threetreesnodenumber(xydata,maxdepth,msize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7178:2: 7178 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7179:2: 7179 | nodesize(1) = sizel | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7180:2: 7180 | nodesize(2) = sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7181:2: 7181 | deallocate(anovadata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7182:2: 7182 | allfval(1) = splitwfval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7183:2: 7183 | nodenummat(:,:) = nodenummatsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7184:2: 7184 | do treeloop = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7185:2: 7185 | stopcount = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7186:2: 7186 | hierarchy = hierarchy + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7187:2: 7187 | do nodeloop = 1,(2**treeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7188:2: 7188 | if(allocated(wfmat) .or. allocated(indmat) .or. allocated(wfvec) .or. allocated(ind1vec) .or. allocated(ind2vec)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7189:2: 7189 | deallocate(wfmat,indmat,wfvec,ind1vec,ind2vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7190:2: 7190 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7191:2: 7191 | nodenum = nodenum + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7192:2: 7192 | splitpval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7193:2: 7193 | allocate(xynodedata(nodesize(nodeloop),colnum),anovadata(nodesize(nodeloop),4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7194:2: 7194 | if(nodesize(nodeloop) < (levelcount*minsplit)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7195:2: 7195 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7196:2: 7196 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7197:2: 7197 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7198:2: 7198 | call threetreesnodedatanumber(xydata,msize,colnum,nodenum,hierarchy,nodenummat,nodesize(nodeloop),xynodedata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7199:2: 7199 | call threetreessplitcount(nodesize(nodeloop), colnum-3, xynodedata, DATATYPE, splitnum, countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7200:2: 7200 | if(sum(splitnum) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7201:2: 7201 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7202:2: 7202 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7203:2: 7203 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7204:2: 7204 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7205:2: 7205 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7206:2: 7206 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7207:2: 7207 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7208:2: 7208 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7209:2: 7209 | wfmat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7210:2: 7210 | indmat(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7211:2: 7211 | indcou = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7212:2: 7212 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7213:2: 7213 | dfvec_set = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7214:2: 7214 | do ind1=4,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7215:2: 7215 | if(splitnum(ind1-3) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7216:2: 7216 | goto 2000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7217:2: 7217 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7218:2: 7218 | if(allocated(splitindmat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7219:2: 7219 | deallocate(splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7220:2: 7220 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7221:2: 7221 | if(.not. allocated(splitindmat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7222:2: 7222 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7223:2: 7223 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7224:2: 7224 | if(allocated(facvalout)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7225:2: 7225 | deallocate(facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7226:2: 7226 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7227:2: 7227 | if(.not. allocated(facvalout)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7228:2: 7228 | allocate(facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7229:2: 7229 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7230:2: 7230 | call threetreessplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7231:2: 7231 | countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7232:2: 7232 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7233:2: 7233 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7234:2: 7234 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7235:2: 7235 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7236:2: 7236 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7237:2: 7237 | call threetreesrepANOVA(nodesize(nodeloop),colnum,anovadata,fval,dfvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7238:2: 7238 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7239:2: 7239 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7240:2: 7240 | groupsum_cache(indcou) = sum(anovadata(:,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7241:2: 7241 | if (.not. dfvec_set) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7242:2: 7242 | dfvec_const = dfvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7243:2: 7243 | dfvec_set = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7244:2: 7244 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7245:2: 7245 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7246:2: 7246 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7247:2: 7247 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7248:2: 7248 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7249:2: 7249 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7250:2: 7250 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7251:2: 7251 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7252:2: 7252 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7253:2: 7253 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7254:2: 7254 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7255:2: 7255 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7256:6: 7256 | 2000 continue | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7257:2: 7257 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7258:2: 7258 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7259:2: 7259 | allocate(flat_idx_vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7260:2: 7260 | do i = 1,11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7261:2: 7261 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7262:2: 7262 | wfvec(i) = wfmat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7263:2: 7263 | ind1vec(i) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7264:2: 7264 | ind2vec(i) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7265:2: 7265 | flat_idx_vec(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7266:2: 7266 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7267:2: 7267 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7268:2: 7268 | allocate(flat_idx_vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7269:2: 7269 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7270:2: 7270 | wfvec(1) = wfmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7271:2: 7271 | ind1vec(1) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7272:2: 7272 | ind2vec(1) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7273:2: 7273 | flat_idx_vec(1) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7274:2: 7274 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7275:2: 7275 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7276:2: 7276 | do weightind=0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7277:2: 7277 | flat_idx = flat_idx_vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7278:2: 7278 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7279:2: 7279 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7280:2: 7280 | weight = 0.1d0 * dble(weightind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7281:2: 7281 | call threetreesweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7282:2: 7282 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7283:2: 7283 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7284:2: 7284 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7285:2: 7285 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7286:2: 7286 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7287:2: 7287 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7288:2: 7288 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7289:2: 7289 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7290:2: 7290 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7291:2: 7291 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7292:2: 7292 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7293:2: 7293 | if(splitpval==0d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7294:2: 7294 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7295:2: 7295 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7296:2: 7296 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7297:2: 7297 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7298:2: 7298 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7299:2: 7299 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7300:2: 7300 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7301:2: 7301 | call threetreessplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7302:2: 7302 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7303:2: 7303 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7304:2: 7304 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7305:2: 7305 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7306:2: 7306 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7307:2: 7307 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7308:2: 7308 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7309:2: 7309 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7310:2: 7310 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7311:2: 7311 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7312:2: 7312 | flat_idx = flat_idx_vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7313:2: 7313 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7314:2: 7314 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7315:2: 7315 | weight = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7316:2: 7316 | call threetreesweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7317:2: 7317 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7318:2: 7318 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7319:2: 7319 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7320:2: 7320 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7321:2: 7321 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7322:2: 7322 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7323:2: 7323 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7324:2: 7324 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7325:2: 7325 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7326:2: 7326 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7327:2: 7327 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7328:2: 7328 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7329:2: 7329 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7330:2: 7330 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7331:2: 7331 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7332:2: 7332 | call threetreessplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7333:2: 7333 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7334:2: 7334 | call threetreessplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7335:2: 7335 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7336:2: 7336 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7337:2: 7337 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7338:2: 7338 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7339:2: 7339 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7340:2: 7340 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7341:2: 7341 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7342:2: 7342 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7343:2: 7343 | if (splitpval >= 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7344:2: 7344 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7345:2: 7345 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7346:2: 7346 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7347:2: 7347 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7348:2: 7348 | weight = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7349:2: 7349 | call threetreesweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7350:2: 7350 | splitmcppval(1) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7351:2: 7351 | weight = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7352:2: 7352 | call threetreesweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7353:2: 7353 | splitmcppval(2) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7354:2: 7354 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7355:2: 7355 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7356:2: 7356 | if(splitmcp > alphamcp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7357:2: 7357 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7358:2: 7358 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7359:2: 7359 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7360:2: 7360 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7361:2: 7361 | if(splitpval > alpha) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7362:2: 7362 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7363:2: 7363 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7364:2: 7364 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7365:2: 7365 | if(splitgroupsum <= dble(levelcount*minbucket) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7366:2: 7366 | (dble(nodesize(nodeloop)) - splitgroupsum) <= dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7367:2: 7367 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7368:2: 7368 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7369:2: 7369 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7370:2: 7370 | allfval(nodenum) = splitwfval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7371:2: 7371 | if(.not. allocated(nodesizesub)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7372:2: 7372 | allocate(nodesizesub(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7373:2: 7373 | nodesizesub(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7374:2: 7374 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7375:2: 7375 | sizenum = size(splitfacval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7376:2: 7376 | call threetreesnodenumber(xydata,maxdepth,msize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7377:2: 7377 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7378:2: 7378 | nodenummat(:,:) = nodenummatsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7379:2: 7379 | nodesizesub(2*nodeloop-1) = sizel | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7380:2: 7380 | nodesizesub(2*nodeloop) = sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7381:2: 7381 | Rsplitmat(nodenum,1) =dble(nodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7382:2: 7382 | Rsplitmat(nodenum,2) = splitweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7383:2: 7383 | Rsplitmat(nodenum,3) = 1d0-splitweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7384:2: 7384 | Rsplitmat(nodenum,4) = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7385:2: 7385 | Rsplitmat(nodenum,5) = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7386:2: 7386 | Rsplitmat(nodenum,6) = splitfval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7387:2: 7387 | Rsplitmat(nodenum,7) = splitfval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7388:2: 7388 | Rsplitmat(nodenum,8) = splitweight*splitfval(1) + (1-splitweight)*splitfval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7389:2: 7389 | Rsplitmat(nodenum,9) = splitpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7390:2: 7390 | Rsplitmat(nodenum,10) = splitmcp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7391:6: 7391 | 2001 continue | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7392:2: 7392 | if(allocated(fval_cache)) deallocate(fval_cache, groupsum_cache, flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7393:2: 7393 | deallocate(anovadata,xynodedata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7394:2: 7394 | if(stopcount == 2**treeloop) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7395:2: 7395 | goto 2003 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7396:2: 7396 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7397:2: 7397 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7398:2: 7398 | deallocate(nodesize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7399:2: 7399 | allocate(nodesize(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7400:2: 7400 | nodesize(:) = nodesizesub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7401:2: 7401 | deallocate(nodesizesub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7402:2: 7402 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7404:2: 7404 | deallocate(nodesize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7408:2: 7408 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7409:2: 7409 | integer,intent(in) :: msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7410:2: 7410 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7411:2: 7411 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7412:2: 7412 | integer, intent(out) :: facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7413:2: 7413 | integer count, j, i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7414:2: 7414 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7415:2: 7415 | call threetreesdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7416:2: 7416 | count = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7417:2: 7417 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7418:2: 7418 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7419:2: 7419 | count = count + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7420:2: 7420 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7421:2: 7421 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7422:2: 7422 | facsum = count | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7425:2: 7425 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7426:2: 7426 | integer,intent(in)::start,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7427:2: 7427 | double precision,intent(inout)::datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7428:2: 7428 | double precision x,t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7429:2: 7429 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7430:2: 7430 | x = datavec((start+msize)/2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7431:2: 7431 | i = start | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7432:2: 7432 | j = msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7433:2: 7433 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7434:2: 7434 | do while (datavec(i) < x) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7435:2: 7435 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7436:2: 7436 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7437:2: 7437 | do while (x < datavec(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7438:2: 7438 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7439:2: 7439 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7440:2: 7440 | if (i >= j) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7441:2: 7441 | t = datavec(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7442:2: 7442 | datavec(i) = datavec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7443:2: 7443 | datavec(j) = t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7444:2: 7444 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7445:2: 7445 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7446:2: 7446 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7447:2: 7447 | if (start < i-1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7448:2: 7448 | call threetreesdatasort(datavec, start, i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7449:2: 7449 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7450:2: 7450 | if (j+1 < msize) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7451:2: 7451 | call threetreesdatasort(datavec, j+1, msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7452:2: 7452 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7453:2: 7453 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7456:2: 7456 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7457:2: 7457 | integer,intent(in) :: msize, facsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7458:2: 7458 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7459:2: 7459 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7460:2: 7460 | double precision, intent(out) :: facval(facsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7461:2: 7461 | integer count, i, j, k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7462:2: 7462 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7463:2: 7463 | call threetreesdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7464:2: 7464 | facval(1) = datavecsub(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7465:2: 7465 | k = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7466:2: 7466 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7467:2: 7467 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7468:2: 7468 | k = k + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7469:2: 7469 | facval(k) = datavecsub(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7470:2: 7470 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7471:2: 7471 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7474:2: 7474 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7475:2: 7475 | integer, intent(in) :: samplesize, pp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7476:2: 7476 | double precision, intent(in) :: sampledata(samplesize,pp+3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7477:2: 7477 | integer, intent(in) :: datatype(pp) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7478:2: 7478 | integer, intent(out) :: splitnum(pp), countvec(pp) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7479:2: 7479 | double precision datasample(samplesize), sortsample(samplesize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7480:2: 7480 | integer i, j, count, facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7481:2: 7481 | do i = 4,pp+3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7482:2: 7482 | datasample = sampledata(:,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7483:2: 7483 | if(datatype(i-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7484:2: 7484 | call threetreesdatasum(sampledata(:,i),samplesize,facsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7485:2: 7485 | splitnum(i-3) = facsum - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7486:2: 7486 | elseif(datatype(i-3) == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7487:2: 7487 | call threetreesdatasum(sampledata(:,i),samplesize,facsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7488:2: 7488 | splitnum(i-3) = (2 ** (facsum-1)) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7489:2: 7489 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7490:2: 7490 | countvec(i-3) = facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7491:2: 7491 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7494:2: 7494 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7495:2: 7495 | integer, intent(in) :: varnum,datatype,msize,colnum,splitnum,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7496:2: 7496 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7497:2: 7497 | integer, intent(out) :: splitindmat(splitnum,countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7498:2: 7498 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7499:2: 7499 | if(datatype == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7500:2: 7500 | do i = 1,splitnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7501:2: 7501 | do j = 1,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7502:2: 7502 | if(i >= j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7503:2: 7503 | splitindmat(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7504:2: 7504 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7505:2: 7505 | splitindmat(i,j) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7506:2: 7506 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7507:2: 7507 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7508:2: 7508 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7509:2: 7509 | elseif(datatype == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7510:2: 7510 | idx = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7511:2: 7511 | do i = 0, 2**(countvec-1) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7512:2: 7512 | count_0 = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7513:2: 7513 | count_1 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7514:2: 7514 | splitindmat(idx, 1) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7515:2: 7515 | do j = 0, countvec - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7516:2: 7516 | if (iand(i, 2**j) /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7517:2: 7517 | splitindmat(idx, j+2) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7518:2: 7518 | count_1 = count_1 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7519:2: 7519 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7520:2: 7520 | splitindmat(idx, j+2) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7521:2: 7521 | count_0 = count_0 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7522:2: 7522 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7523:2: 7523 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7524:2: 7524 | if (count_0 > 0 .and. count_1 > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7525:2: 7525 | idx = idx + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7526:2: 7526 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7527:2: 7527 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7528:2: 7528 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7531:2: 7531 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7532:2: 7532 | integer, intent(in) :: countvec,msize,colnum,ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7533:2: 7533 | integer, intent(in) :: splitindmat(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7534:2: 7534 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7535:2: 7535 | double precision, intent(out) :: anovadata(msize,4),facvalout(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7536:2: 7536 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7537:2: 7537 | double precision facval(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7538:2: 7538 | call threetreesdataval(xydata(:,ind1),msize,facval,countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7539:2: 7539 | facvalout = facval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7540:2: 7540 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7541:2: 7541 | do j = 1,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7542:2: 7542 | if(xydata(i,ind1) == facval(j)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7543:2: 7543 | anovadata(i,1:3) = xydata(i,1:3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7544:2: 7544 | anovadata(i,4) = splitindmat(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7545:2: 7545 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7546:2: 7546 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7547:2: 7547 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7550:2: 7550 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7551:2: 7551 | integer,intent(in) :: msize, pp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7552:2: 7552 | double precision, intent(in) :: anovadata(msize,4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7553:2: 7553 | double precision, intent(OUT) :: fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7554:2: 7554 | integer, intent(OUT) :: dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7555:2: 7555 | integer i, gi, ti, si, max_subj_id, timecount, nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7556:2: 7556 | double precision ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7557:2: 7557 | double precision ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7558:2: 7558 | integer, allocatable :: subj_map(:), si_arr(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7559:2: 7559 | double precision, allocatable :: ygroup(:), ytime(:), ysubject(:), ygrouptime(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7560:2: 7560 | double precision, allocatable :: ygroupcount(:), ytimecount(:), ysubjectcount(:), ygrouptimecount(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7561:2: 7561 | timecount = nint(maxval(anovadata(:,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7562:2: 7562 | max_subj_id = nint(maxval(anovadata(:,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7563:2: 7563 | allocate(subj_map(max_subj_id)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7564:2: 7564 | subj_map(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7565:2: 7565 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7566:2: 7566 | subj_map(nint(anovadata(i,2))) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7567:2: 7567 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7568:2: 7568 | nsubjects = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7569:2: 7569 | do i = 1, max_subj_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7570:2: 7570 | if (subj_map(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7571:2: 7571 | nsubjects = nsubjects + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7572:2: 7572 | subj_map(i) = nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7573:2: 7573 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7574:2: 7574 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7575:2: 7575 | dfvec(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7576:2: 7576 | dfvec(2) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7577:2: 7577 | dfvec(3) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7578:2: 7578 | dfvec(4) = nsubjects - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7579:2: 7579 | dfvec(5) = (timecount - 1) * (nsubjects - 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7580:2: 7580 | allocate(ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2, timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7581:2: 7581 | allocate(ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2, timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7582:2: 7582 | allocate(si_arr(msize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7583:2: 7583 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7584:2: 7584 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7585:2: 7585 | ymean = sum(anovadata(:,1)) / msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7586:2: 7586 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7587:2: 7587 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7588:2: 7588 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7589:2: 7589 | si = subj_map(nint(anovadata(i,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7590:2: 7590 | si_arr(i) = si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7591:2: 7591 | ygroup(gi) = ygroup(gi) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7592:2: 7592 | ygroupcount(gi) = ygroupcount(gi) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7593:2: 7593 | ytime(ti) = ytime(ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7594:2: 7594 | ytimecount(ti) = ytimecount(ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7595:2: 7595 | ysubject(si) = ysubject(si) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7596:2: 7596 | ysubjectcount(si) = ysubjectcount(si) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7597:2: 7597 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7598:2: 7598 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7599:2: 7599 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7600:2: 7600 | ygroup = ygroup / ygroupcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7601:2: 7601 | ytime = ytime / ytimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7602:2: 7602 | ysubject = ysubject / ysubjectcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7603:2: 7603 | ygrouptime = ygrouptime / ygrouptimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7604:2: 7604 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7605:2: 7605 | ssgrouptime = 0d0; sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7606:2: 7606 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7607:2: 7607 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7608:2: 7608 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7609:2: 7609 | si = si_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7610:2: 7610 | sstotal = sstotal + (anovadata(i,1) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7611:2: 7611 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7612:2: 7612 | sstime = sstime + (ytime(ti) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7613:2: 7613 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7614:2: 7614 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7615:2: 7615 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7616:2: 7616 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7617:2: 7617 | ms(1) = ssgroup / dfvec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7618:2: 7618 | ms(2) = sstime / dfvec(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7619:2: 7619 | ms(3) = ssgrouptime / dfvec(3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7620:2: 7620 | ms(4) = sssubject / dfvec(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7621:2: 7621 | ms(5) = sserr / dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7622:2: 7622 | fval(1) = ms(1) / ms(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7623:2: 7623 | fval(2) = ms(3) / ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7624:2: 7624 | deallocate(subj_map, si_arr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7625:2: 7625 | deallocate(ygroup, ytime, ysubject, ygrouptime) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7626:2: 7626 | deallocate(ygroupcount, ytimecount, ysubjectcount, ygrouptimecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7629:2: 7629 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7630:2: 7630 | integer, intent(in) :: dfvec(5),beta1len,beta2len | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7631:2: 7631 | double precision, intent(in) :: weight, fval(2),beta1(beta1len),beta2(beta2len) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7632:2: 7632 | double precision, intent(out) :: weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7633:2: 7633 | double precision DFD1, DFN1, DFD2, DFN2, TESTVAL1, TESTVAL2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7634:2: 7634 | double precision xb,eps,s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7635:2: 7635 | eps = 1d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7636:2: 7636 | DFD1 = dble(dfvec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7637:2: 7637 | DFN1 = dble(dfvec(4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7638:2: 7638 | DFD2 = dble(dfvec(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7639:2: 7639 | DFN2 = dble(dfvec(5)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7640:2: 7640 | TESTVAL1 = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7641:2: 7641 | TESTVAL2 = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7642:2: 7642 | if(abs(weight - 1d0) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7643:2: 7643 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7644:2: 7644 | call threetreespfdist(DFD1,DFN1,0d0,TESTval1,eps,beta1(int(DFN1)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7645:2: 7645 | weightpval = 1.0d0 - s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7646:2: 7646 | goto 10000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7647:2: 7647 | elseif(abs(weight) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7648:2: 7648 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7649:2: 7649 | call threetreespfdist(DFD2,DFN2,0d0,TESTval2,eps,beta2(int(DFN2)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7650:2: 7650 | weightpval = 1.0d0 - s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7651:2: 7651 | goto 10000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7652:2: 7652 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7653:2: 7653 | xb = (weight*TESTVAL1) + ((1d0-weight)*TESTVAL2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7654:2: 7654 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7655:2: 7655 | call threetreesdemethod(xb,weight,DFD1,DFN1,DFD2,DFN2,eps,beta1(int(DFN1)),beta2(int(DFN2)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7656:2: 7656 | weightpval = 1d0-s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7658:2: 7658 | weightpval = max(0d0, min(1d0, weightpval)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7661:2: 7661 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7662:2: 7662 | integer,parameter::kmin=3,kmax=14 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7663:2: 7663 | double precision,parameter::hr=6.d0, c0=0.01d0, pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7664:2: 7664 | double precision,intent(in)::a,b,eps,df1,df2,beta | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7665:2: 7665 | double precision,intent(out)::s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7666:2: 7666 | double precision res,zval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7667:2: 7667 | double precision inv_beta, df_ratio, df1_half, df12_half, form3, df1m2_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7669:2: 7669 | double precision h,s0,xt,wt,t,as,shk,mba,pba,err,seps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7670:2: 7670 | inv_beta = 1d0 / beta | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7671:2: 7671 | df_ratio = df1/df2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7672:2: 7672 | df1_half = df1/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7673:2: 7673 | df12_half = (df1+df2)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7674:2: 7674 | form3 = df_ratio**df1_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7675:2: 7675 | df1m2_half = (df1-2d0)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7680:2: 7680 | zval = pba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7681:2: 7681 | res = inv_beta * form3 * (zval**df1m2_half) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7682:2: 7682 | ((1d0+(df_ratio*zval))**df12_half) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7687:2: 7687 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7688:2: 7688 | nc=2*nc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7689:2: 7689 | h=h*0.5d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7690:2: 7690 | do j=1,nc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7691:2: 7691 | t=dble(2*j-nc-1)*h | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7692:2: 7692 | shk=pi2*sinh(t) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7693:2: 7693 | xt=tanh(shk) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7694:2: 7694 | wt=pi2*cosh(t)*(1d0 - xt*xt) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7695:2: 7695 | zval = mba*xt+pba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7696:2: 7696 | res = inv_beta * form3 * (zval**df1m2_half) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7697:2: 7697 | ((1d0+(df_ratio*zval))**df12_half) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7698:2: 7698 | s=s+res*wt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7699:2: 7699 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7700:2: 7700 | s=s0*0.5d0+s*h*mba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7701:2: 7701 | as=abs(s); err=abs(s-s0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7702:2: 7702 | if(as.ge.1d0)err=err/as | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7703:2: 7703 | if(err.le.seps.and.l.ge.kmin)exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7704:2: 7704 | s0=s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7705:2: 7705 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7708:2: 7708 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7709:2: 7709 | double precision,intent(in)::xb,weight,df11,df12,df21,df22,eps,beta1,beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7711:2: 7711 | integer,parameter::kmin=3, kmax=8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7712:2: 7712 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7739:2: 7739 | if(err.le.0.000001d0 .and. l>6)exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7748:2: 7748 | integer,parameter::kmin=3,kmax=8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7749:2: 7749 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7755:2: 7755 | inv_weight = 1d0-weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7789:2: 7789 | s=s+res*wt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7800:2: 7800 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7801:2: 7801 | double precision,intent(in) :: z,v,weight,df11,df12,df21,df22,beta1,beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7802:2: 7802 | double precision,intent(out) :: res | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7803:2: 7803 | double precision zval,form1,form2,form3,form4,form5,form6,form7,form8,form9,s1,s2,eps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7804:2: 7804 | eps=1d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7805:2: 7805 | s1 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7806:2: 7806 | s2 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7807:2: 7807 | zval = (z-((1d0-weight)*v))/weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7808:2: 7808 | form1 = 1d0 / weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7809:2: 7809 | form2 = 1d0 / beta1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7810:2: 7810 | form3 = (df11/df12)**(df11/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7811:2: 7811 | form4 = zval**((df11-2d0)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7812:2: 7812 | form5 = (1d0+((df11/df12)*zval))**((df11+df12)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7813:2: 7813 | form6 = 1d0 / beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7814:2: 7814 | form7 = (df21/df22)**(df21/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7815:2: 7815 | form8 = v**((df21-2d0)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7816:2: 7816 | form9 = (1d0+((df21/df22)*v))**((df21+df22)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7817:2: 7817 | res = form1 * (form2 * form3 * form4 / form5) * (form6 * form7 * form8 / form9) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7821:2: 7821 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7822:2: 7822 | integer, intent(in) :: msize,colnum,sizenum,splitind1,nodenum,splitindvec(sizenum),hierarchy,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7823:2: 7823 | double precision, intent(in) :: xydata(msize,colnum),splitfacval(sizenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7824:2: 7824 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7825:2: 7825 | integer, intent(out) :: sizel,sizer,nodenummatsub(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7826:2: 7826 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7827:2: 7827 | sizel=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7828:2: 7828 | sizer=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7829:2: 7829 | nodenummatsub(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7830:2: 7830 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7831:2: 7831 | if(nodenummat(i,hierarchy-1) == (nodenum/2)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7832:2: 7832 | do j = 1,sizenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7833:2: 7833 | if(abs(xydata(i,splitind1) - splitfacval(j)) < (1.0d0*(10d0**(-10d0)))) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7834:2: 7834 | if(splitindvec(j) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7835:2: 7835 | nodenummatsub(i,hierarchy) = nodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7836:2: 7836 | sizel=sizel+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7837:2: 7837 | elseif(splitindvec(j) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7838:2: 7838 | nodenummatsub(i,hierarchy) = nodenum + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7839:2: 7839 | sizer=sizer+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7840:2: 7840 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7841:2: 7841 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7842:2: 7842 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7843:2: 7843 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7844:2: 7844 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7847:2: 7847 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7848:2: 7848 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7849:2: 7849 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7850:2: 7850 | integer, intent(in) :: nodenummat(msize,11) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7851:2: 7851 | double precision, intent(out) :: xynodedata(nodesize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7852:2: 7852 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7853:2: 7853 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7854:2: 7854 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7855:2: 7855 | if(nodenummat(i,hierarchy) == nodenum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7856:2: 7856 | xynodedata(j,:) = xydata(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7857:2: 7857 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7858:2: 7858 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7859:2: 7859 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7862:2: 7862 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7863:2: 7863 | integer,intent(in) :: prunind,msize,cv,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7864:2: 7864 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7865:2: 7865 | double precision,intent(in) :: alpha,gamma,allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7866:2: 7866 | double precision,intent(out) :: allgammaval((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7867:2: 7867 | integer nottnodeval,allnodenum,minghnum,prunloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7868:2: 7868 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7869:2: 7869 | double precision minghval,allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7870:2: 7870 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7871:2: 7871 | allgammaval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7872:2: 7872 | if(prunind == 1 .or. alpha < 1d0 .or. gamma >= 0d0 .or. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7873:2: 7873 | goto 3001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7874:2: 7874 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7875:2: 7875 | call threetreescvterminalnodecount(nodenummat,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7876:2: 7876 | call threetreescvweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7877:2: 7877 | allocate(nodenummatnew(msize,maxdepth),nodenummatnewsub(msize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7878:2: 7878 | call threetreescvpruntreemat(nodenummat,maxdepth,msize,minghnum,allfval,allfvalnew,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7879:2: 7879 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7880:2: 7880 | deallocate(nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7881:2: 7881 | allgammaval(2) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7882:2: 7882 | do prunloop = 2,((2**(maxdepth-1))-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7883:2: 7883 | allfvalnewsub(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7884:2: 7884 | call threetreescvterminalnodecount(nodenummatnew,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7885:2: 7885 | if(allnodenum == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7886:2: 7886 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7887:2: 7887 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7888:2: 7888 | call threetreescvweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7889:2: 7889 | allocate(nodenummatnewsub(msize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7890:2: 7890 | call threetreescvpruntreemat(nodenummatnew,maxdepth,msize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7891:2: 7891 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7892:2: 7892 | allfvalnew(:) = allfvalnewsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7893:2: 7893 | deallocate(nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7894:2: 7894 | allgammaval(prunloop+1) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7895:2: 7895 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7899:2: 7899 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7900:2: 7900 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7901:2: 7901 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7902:2: 7902 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7903:2: 7903 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7904:2: 7904 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7905:2: 7905 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7906:2: 7906 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7907:2: 7907 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7908:2: 7908 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7909:2: 7909 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7910:2: 7910 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7911:2: 7911 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7912:2: 7912 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7913:2: 7913 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7914:2: 7914 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7915:2: 7915 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7916:2: 7916 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7917:2: 7917 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7918:2: 7918 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7919:2: 7919 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7920:2: 7920 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7921:2: 7921 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7922:2: 7922 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7923:2: 7923 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7924:2: 7924 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7925:2: 7925 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7926:2: 7926 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7927:2: 7927 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7930:2: 7930 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7931:2: 7931 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7932:2: 7932 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7933:2: 7933 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7934:2: 7934 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7935:2: 7935 | double precision, intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7936:2: 7936 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7937:2: 7937 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7938:2: 7938 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7939:2: 7939 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7940:2: 7940 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7941:2: 7941 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7942:2: 7942 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7943:2: 7943 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7944:2: 7944 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7945:2: 7945 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7946:2: 7946 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7947:2: 7947 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7948:2: 7948 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7949:2: 7949 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7950:2: 7950 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7951:2: 7951 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7952:2: 7952 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7953:2: 7953 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7954:2: 7954 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7955:2: 7955 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7956:2: 7956 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7957:2: 7957 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7958:2: 7958 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7959:2: 7959 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7960:2: 7960 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7961:2: 7961 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7962:2: 7962 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7963:2: 7963 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7964:2: 7964 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7965:2: 7965 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7966:2: 7966 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7967:2: 7967 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7968:2: 7968 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7969:2: 7969 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7970:2: 7970 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7971:2: 7971 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7972:2: 7972 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7975:2: 7975 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7976:2: 7976 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7977:2: 7977 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7978:2: 7978 | double precision, intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7979:2: 7979 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7980:2: 7980 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7981:2: 7981 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7982:2: 7982 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7983:2: 7983 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7984:2: 7984 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7985:2: 7985 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7986:2: 7986 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7987:2: 7987 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7988:2: 7988 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7989:2: 7989 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7990:2: 7990 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7991:2: 7991 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7992:2: 7992 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7993:2: 7993 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7994:2: 7994 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7995:2: 7995 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7996:2: 7996 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7997:2: 7997 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7998:2: 7998 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:7999:2: 7999 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8000:2: 8000 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8001:2: 8001 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8002:2: 8002 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8007:2: 8007 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8008:2: 8008 | integer,intent(in) :: cv,msize,colnum,Ksplit,maxdepth,levelcount,beta1len,beta2len,minbucket,minsplit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8009:2: 8009 | integer,intent(in) :: datatype(colnum-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8010:2: 8010 | integer,intent(in) :: iseed | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8011:2: 8011 | double precision,intent(in) :: alpha,gamma,fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8012:2: 8012 | double precision,intent(in) :: beta1(beta1len),beta2(beta2len),allgammaval1((2**(maxdepth-1))-1),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8013:2: 8013 | allgammaval2((2**(maxdepth-1))-1),allgammaval3((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8014:2: 8014 | integer,intent(in) :: cvindin1(msize),cvindin2(msize),cvindin3(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8015:2: 8015 | double precision,intent(in) :: bootdata1(msize,colnum),bootdata2(msize,colnum),bootdata3(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8016:2: 8016 | double precision,intent(out) :: bestgammaval1,bestgammaval2,bestgammaval3,r2cvval1,r2cvval2,r2cvval3,r2cvvalthree | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8017:2: 8017 | integer, allocatable :: cvind1(:),cvind2(:),cvind3(:),cvsize1(:),cvsize2(:),cvsize3(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8018:2: 8018 | integer, allocatable :: nodenummat1(:,:),nodenummat2(:,:),nodenummat3(:,:), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8019:2: 8019 | prunenodenummat1(:,:), prunenodenummat2(:,:), prunenodenummat3(:,:),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8020:2: 8020 | nodenummattest1(:,:),nodenummattest2(:,:),nodenummattest3(:,:),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8021:2: 8021 | nodenummattestcv1(:,:),nodenummattestcv2(:,:),nodenummattestcv3(:,:),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8022:2: 8022 | prunenodenummattest1(:,:),prunenodenummattest2(:,:),prunenodenummattest3(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8023:2: 8023 | double precision, allocatable :: meangammacv1(:),meangammacv2(:),meangammacv3(:),meangammar2cv(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8024:2: 8024 | double precision, allocatable :: gammacvmat1(:,:),gammacvmat2(:,:),gammacvmat3(:,:),traindata1(:,:),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8025:2: 8025 | traindata2(:,:),traindata3(:,:),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8026:2: 8026 | testdata1(:,:),testdata2(:,:),testdata3(:,:),testdataall(:,:),gammar2cvmat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8027:2: 8027 | integer cvloop,traindatasize1,traindatasize2,traindatasize3,testdatasize1,testdatasize2,testdatasize3,prunind1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8028:2: 8028 | prunind2,prunind3,i,testdataallsize,bfsize,afsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8029:2: 8029 | double precision allfval1((2**maxdepth)-1),allfval2((2**maxdepth)-1),allfval3((2**maxdepth)-1),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8030:2: 8030 | gammacv1((2**(maxdepth-1))-1),gammacv2((2**(maxdepth-1))-1),gammacv3((2**(maxdepth-1))-1),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8031:2: 8031 | r2cvvalvec1(ksplit),r2cvvalvec2(ksplit),r2cvvalvec3(ksplit),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8032:2: 8032 | r2cvvalvecthree(ksplit),gammar2cv((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8033:2: 8033 | double precision maxgammasub,r2cvval1sub,r2cvval2sub,r2cvval3sub,r2cvvalthreesub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8034:2: 8034 | allocate(cvind1(msize),cvind2(msize),cvind3(msize),cvsize1(Ksplit),cvsize2(Ksplit),cvsize3(Ksplit),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8035:2: 8035 | gammacvmat1(ksplit,(2**(maxdepth-1))-1),gammacvmat2(ksplit,(2**(maxdepth-1))-1),gammacvmat3(ksplit,(2**(maxdepth-1))-1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8036:2: 8036 | allocate(gammar2cvmat(ksplit,(2**(maxdepth-1))-1),meangammacv1((2**(maxdepth-1))-1),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8037:2: 8037 | meangammacv2((2**(maxdepth-1))-1),meangammacv3((2**(maxdepth-1))-1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8038:2: 8038 | allocate(meangammar2cv((2**(maxdepth-1))-1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8039:2: 8039 | call getrngstate() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8040:2: 8040 | call threetreesttcvdata(bootdata1,msize,colnum,Ksplit,levelcount,cvindin1,cvind1,cvsize1,cv,iseed) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8041:2: 8041 | call threetreesttcvdata(bootdata2,msize,colnum,Ksplit,levelcount,cvindin2,cvind2,cvsize2,cv,iseed) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8042:2: 8042 | call threetreesttcvdata(bootdata3,msize,colnum,Ksplit,levelcount,cvindin3,cvind3,cvsize3,cv,iseed) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8043:2: 8043 | call putrngstate() | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8044:2: 8044 | do cvloop = 1,Ksplit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8045:2: 8045 | traindatasize1 = ((sum(cvsize1)-cvsize1(cvloop))*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8046:2: 8046 | testdatasize1 = (cvsize1(cvloop)*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8047:2: 8047 | traindatasize2 = ((sum(cvsize2)-cvsize2(cvloop))*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8048:2: 8048 | testdatasize2 = (cvsize2(cvloop)*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8049:2: 8049 | traindatasize3 = ((sum(cvsize3)-cvsize3(cvloop))*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8050:2: 8050 | testdatasize3 = (cvsize3(cvloop)*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8051:2: 8051 | testdataallsize = testdatasize1+testdatasize2+testdatasize3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8052:2: 8052 | allocate(traindata1(traindatasize1,colnum),traindata2(traindatasize2,colnum),traindata3(traindatasize3,colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8053:2: 8053 | allocate(testdata1(testdatasize1,colnum),testdata2(testdatasize2,colnum),testdata3(testdatasize3,colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8054:2: 8054 | allocate(testdataall(testdataallsize,colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8055:2: 8055 | allocate(nodenummat1(traindatasize1,maxdepth),nodenummat2(traindatasize2,maxdepth),nodenummat3(traindatasize3,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8056:2: 8056 | allocate(nodenummattest1(testdataallsize,maxdepth),nodenummattest2(testdataallsize,maxdepth),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8057:2: 8057 | nodenummattest3(testdataallsize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8058:2: 8058 | allocate(nodenummattestcv1(testdatasize1,maxdepth),nodenummattestcv2(testdatasize2,maxdepth),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8059:2: 8059 | nodenummattestcv3(testdatasize3,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8060:2: 8060 | call threetreesttcvdatachoice(bootdata1,msize,colnum,Ksplit,levelcount,cvloop,cvind1,cvsize1,traindata1,testdata1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8061:2: 8061 | call threetreesttcvdatachoice(bootdata2,msize,colnum,Ksplit,levelcount,cvloop,cvind2,cvsize2,traindata2,testdata2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8062:2: 8062 | call threetreesttcvdatachoice(bootdata3,msize,colnum,Ksplit,levelcount,cvloop,cvind3,cvsize3,traindata3,testdata3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8063:2: 8063 | testdataall(1:testdatasize1,:) = testdata1(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8064:2: 8064 | testdataall((testdatasize1+1):(testdatasize1+testdatasize2),:) = testdata2(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8065:2: 8065 | testdataall((testdatasize1+testdatasize2+1):testdataallsize,:) = testdata3(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8066:2: 8066 | call threetreesttcvtreegrowth(traindatasize1,testdataallsize,traindata1,testdataall,nodenummattest1,fixweight,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8067:2: 8067 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata1,datatype,beta1,beta2,beta1len,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8068:2: 8068 | beta2len,nodenummat1,allfval1,prunind1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8069:2: 8069 | call threetreesttcvtreegrowth(traindatasize2,testdataallsize,traindata2,testdataall,nodenummattest2,fixweight,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8070:2: 8070 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata2,datatype,beta1,beta2,beta1len,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8071:2: 8071 | beta2len,nodenummat2,allfval2,prunind2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8072:2: 8072 | call threetreesttcvtreegrowth(traindatasize3,testdataallsize,traindata3,testdataall,nodenummattest3,fixweight,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8073:2: 8073 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata3,datatype,beta1,beta2,beta1len,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8074:2: 8074 | beta2len,nodenummat3,allfval3,prunind3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8075:2: 8075 | if(alpha < 1d0 .and. gamma < 0d0 .and. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8076:2: 8076 | call threetreesttbootpredict(cvloop,traindata1,traindata2,traindata3,traindatasize1,traindatasize2,traindatasize3,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8077:2: 8077 | nodenummat1,nodenummat2,nodenummat3,testdata1,testdata2,testdata3,testdataall,testdatasize1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8078:2: 8078 | testdatasize2,testdatasize3,testdataallsize,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8079:2: 8079 | colnum,levelcount,nodenummattest1,nodenummattest2,nodenummattest3,maxdepth,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8080:2: 8080 | r2cvval1sub,r2cvval2sub,r2cvval3sub,r2cvvalthreesub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8081:2: 8081 | r2cvvalvec1(cvloop) = r2cvval1sub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8082:2: 8082 | r2cvvalvec2(cvloop) = r2cvval2sub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8083:2: 8083 | r2cvvalvec3(cvloop) = r2cvval3sub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8084:2: 8084 | r2cvvalvecthree(cvloop) = r2cvvalthreesub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8085:2: 8085 | bestgammaval1 = -1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8086:2: 8086 | bestgammaval2 = -1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8087:2: 8087 | bestgammaval3 = -1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8088:2: 8088 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8089:2: 8089 | if(alpha == 1d0 .and. gamma >= 0d0 .and. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8090:2: 8090 | allocate(prunenodenummattest1(testdataallsize,maxdepth),prunenodenummattest2(testdataallsize,maxdepth),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8091:2: 8091 | prunenodenummattest3(testdataallsize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8092:2: 8092 | allocate(prunenodenummat1(traindatasize1,maxdepth),prunenodenummat2(traindatasize2,maxdepth),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8093:2: 8093 | prunenodenummat3(traindatasize3,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8094:2: 8094 | call threetreesttcvgammatreepruning(prunind1,traindatasize1,testdataallsize,gamma,maxdepth,nodenummat1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8095:2: 8095 | nodenummattest1,allfval1,prunenodenummat1,prunenodenummattest1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8096:2: 8096 | call threetreesttcvgammatreepruning(prunind2,traindatasize2,testdataallsize,gamma,maxdepth,nodenummat2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8097:2: 8097 | nodenummattest2,allfval2,prunenodenummat2,prunenodenummattest2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8098:2: 8098 | call threetreesttcvgammatreepruning(prunind3,traindatasize3,testdataallsize,gamma,maxdepth,nodenummat3,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8099:2: 8099 | nodenummattest3,allfval3,prunenodenummat3,prunenodenummattest3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8100:2: 8100 | call threetreesttbootpredict(cvloop,traindata1,traindata2,traindata3,traindatasize1,traindatasize2,traindatasize3,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8101:2: 8101 | prunenodenummat1,prunenodenummat2,prunenodenummat3,testdata1,testdata2,testdata3,testdataall,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8102:2: 8102 | testdatasize1,testdatasize2,testdatasize3,testdataallsize,colnum,levelcount,prunenodenummattest1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8103:2: 8103 | prunenodenummattest2,prunenodenummattest3,maxdepth,r2cvval1sub,r2cvval2sub,r2cvval3sub,r2cvvalthreesub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8104:2: 8104 | r2cvvalvec1(cvloop) = r2cvval1sub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8105:2: 8105 | r2cvvalvec2(cvloop) = r2cvval2sub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8106:2: 8106 | r2cvvalvec3(cvloop) = r2cvval3sub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8107:2: 8107 | r2cvvalvecthree(cvloop) = r2cvvalthreesub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8108:2: 8108 | bestgammaval1 = gamma | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8109:2: 8109 | bestgammaval2 = gamma | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8110:2: 8110 | bestgammaval3 = gamma | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8111:2: 8111 | deallocate(prunenodenummattest1,prunenodenummattest2,prunenodenummattest3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8112:2: 8112 | deallocate(prunenodenummat1,prunenodenummat2,prunenodenummat3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8113:2: 8113 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8114:2: 8114 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8115:2: 8115 | nodenummattestcv1(:,:) = nodenummattest1(1:testdatasize1,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8116:2: 8116 | nodenummattestcv2(:,:) = nodenummattest2((testdatasize1+1):(testdatasize1+testdatasize2),:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8117:2: 8117 | nodenummattestcv3(:,:) = nodenummattest3((testdatasize1+testdatasize2+1):testdataallsize,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8118:2: 8118 | call threetreesttcvbesttreepruning(traindatasize1,testdatasize1,maxdepth,nodenummat1,nodenummattestcv1,allfval1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8119:2: 8119 | levelcount,colnum,traindata1,testdata1,allgammaval1,gammacv1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8120:2: 8120 | call threetreesttcvbesttreepruning(traindatasize2,testdatasize2,maxdepth,nodenummat2,nodenummattestcv2,allfval2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8121:2: 8121 | levelcount,colnum,traindata2,testdata2,allgammaval2,gammacv2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8122:2: 8122 | call threetreesttcvbesttreepruning(traindatasize3,testdatasize3,maxdepth,nodenummat3,nodenummattestcv3,allfval3,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8123:2: 8123 | levelcount,colnum,traindata3,testdata3,allgammaval3,gammacv3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8124:2: 8124 | gammacvmat1(cvloop,:) = gammacv1(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8125:2: 8125 | gammacvmat2(cvloop,:) = gammacv2(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8126:2: 8126 | gammacvmat3(cvloop,:) = gammacv3(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8127:2: 8127 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8128:2: 8128 | deallocate(traindata1,traindata2,traindata3,testdata1,testdata2,testdata3,testdataall) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8129:2: 8129 | deallocate(nodenummat1,nodenummat2,nodenummat3,nodenummattest1,nodenummattest2,nodenummattest3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8130:2: 8130 | deallocate(nodenummattestcv1,nodenummattestcv2,nodenummattestcv3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8131:2: 8131 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8132:2: 8132 | if(alpha == 1d0 .and. gamma < 0d0 .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8133:2: 8133 | do i = 1,size(allgammaval1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8134:2: 8134 | meangammacv1(i) = sum(gammacvmat1(:,i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8135:2: 8135 | if(meangammacv1(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8136:2: 8136 | meangammacv1(i) = meangammacv1(i) / dble(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8137:2: 8137 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8138:2: 8138 | meangammacv1(i) = -1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8139:2: 8139 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8140:2: 8140 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8141:2: 8141 | maxgammasub = maxval(meangammacv1) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8142:2: 8142 | do i = 1,size(meangammacv1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8143:2: 8143 | if(meangammacv1(i) < maxgammasub .and. meangammacv1(i) >= 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8144:2: 8144 | bestgammaval1 = allgammaval1(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8145:2: 8145 | maxgammasub = meangammacv1(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8146:2: 8146 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8147:2: 8147 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8148:2: 8148 | do i = 1,size(allgammaval2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8149:2: 8149 | meangammacv2(i) = sum(gammacvmat2(:,i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8150:2: 8150 | if(meangammacv2(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8151:2: 8151 | meangammacv2(i) = meangammacv2(i) / dble(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8152:2: 8152 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8153:2: 8153 | meangammacv2(i) = -1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8154:2: 8154 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8155:2: 8155 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8156:2: 8156 | maxgammasub = maxval(meangammacv2) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8157:2: 8157 | do i = 1,size(meangammacv2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8158:2: 8158 | if(meangammacv2(i) < maxgammasub .and. meangammacv2(i) >= 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8159:2: 8159 | bestgammaval2 = allgammaval2(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8160:2: 8160 | maxgammasub = meangammacv2(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8161:2: 8161 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8162:2: 8162 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8163:2: 8163 | do i = 1,size(allgammaval3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8164:2: 8164 | meangammacv3(i) = sum(gammacvmat3(:,i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8165:2: 8165 | if(meangammacv3(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8166:2: 8166 | meangammacv3(i) = meangammacv3(i) / dble(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8167:2: 8167 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8168:2: 8168 | meangammacv3(i) = -1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8169:2: 8169 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8170:2: 8170 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8171:2: 8171 | maxgammasub = maxval(meangammacv3) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8172:2: 8172 | do i = 1,size(meangammacv3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8173:2: 8173 | if(meangammacv3(i) < maxgammasub .and. meangammacv3(i) >= 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8174:2: 8174 | bestgammaval3 = allgammaval3(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8175:2: 8175 | maxgammasub = meangammacv3(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8176:2: 8176 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8177:2: 8177 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8178:2: 8178 | deallocate(cvind1,cvind2,cvind3,cvsize1,cvsize2,cvsize3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8179:2: 8179 | allocate(cvind1(msize),cvind2(msize),cvind3(msize),cvsize1(Ksplit),cvsize2(Ksplit),cvsize3(Ksplit)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8180:2: 8180 | call threetreesttcvdata(bootdata1,msize,colnum,Ksplit,levelcount,cvindin1,cvind1,cvsize1,cv,iseed) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8181:2: 8181 | call threetreesttcvdata(bootdata2,msize,colnum,Ksplit,levelcount,cvindin2,cvind2,cvsize2,cv,iseed) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8182:2: 8182 | call threetreesttcvdata(bootdata3,msize,colnum,Ksplit,levelcount,cvindin3,cvind3,cvsize3,cv,iseed) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8183:2: 8183 | do cvloop = 1,Ksplit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8184:2: 8184 | traindatasize1 = ((sum(cvsize1)-cvsize1(cvloop))*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8185:2: 8185 | testdatasize1 = (cvsize1(cvloop)*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8186:2: 8186 | traindatasize2 = ((sum(cvsize2)-cvsize2(cvloop))*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8187:2: 8187 | testdatasize2 = (cvsize2(cvloop)*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8188:2: 8188 | traindatasize3 = ((sum(cvsize3)-cvsize3(cvloop))*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8189:2: 8189 | testdatasize3 = (cvsize3(cvloop)*levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8190:2: 8190 | testdataallsize = testdatasize1+testdatasize2+testdatasize3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8191:2: 8191 | allocate(traindata1(traindatasize1,colnum),traindata2(traindatasize2,colnum),traindata3(traindatasize3,colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8192:2: 8192 | allocate(testdata1(testdatasize1,colnum),testdata2(testdatasize2,colnum),testdata3(testdatasize3,colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8193:2: 8193 | allocate(testdataall(testdataallsize,colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8194:2: 8194 | allocate(nodenummat1(traindatasize1,maxdepth),nodenummat2(traindatasize2,maxdepth),nodenummat3(traindatasize3,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8195:2: 8195 | allocate(nodenummattest1(testdataallsize,maxdepth),nodenummattest2(testdataallsize,maxdepth),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8196:2: 8196 | nodenummattest3(testdataallsize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8197:2: 8197 | call threetreesttcvdatachoice(bootdata1,msize,colnum,Ksplit,levelcount,cvloop,cvind1,cvsize1,traindata1,testdata1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8198:2: 8198 | call threetreesttcvdatachoice(bootdata2,msize,colnum,Ksplit,levelcount,cvloop,cvind2,cvsize2,traindata2,testdata2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8199:2: 8199 | call threetreesttcvdatachoice(bootdata3,msize,colnum,Ksplit,levelcount,cvloop,cvind3,cvsize3,traindata3,testdata3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8200:2: 8200 | testdataall(1:testdatasize1,:) = testdata1(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8201:2: 8201 | testdataall((testdatasize1+1):(testdatasize1+testdatasize2),:) = testdata2(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8202:2: 8202 | testdataall((testdatasize1+testdatasize2+1):testdataallsize,:) = testdata3(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8203:2: 8203 | call threetreesttcvtreegrowth(traindatasize1,testdataallsize,traindata1,testdataall,nodenummattest1,fixweight,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8204:2: 8204 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata1,datatype,beta1,beta2,beta1len,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8205:2: 8205 | beta2len,nodenummat1,allfval1,prunind1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8206:2: 8206 | call threetreesttcvtreegrowth(traindatasize2,testdataallsize,traindata2,testdataall,nodenummattest2,fixweight,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8207:2: 8207 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata2,datatype,beta1,beta2,beta1len,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8208:2: 8208 | beta2len,nodenummat2,allfval2,prunind2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8209:2: 8209 | call threetreesttcvtreegrowth(traindatasize3,testdataallsize,traindata3,testdataall,nodenummattest3,fixweight,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8210:2: 8210 | maxdepth,minbucket,minsplit,alpha,msize,colnum,levelcount,bootdata3,datatype,beta1,beta2,beta1len,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8211:2: 8211 | beta2len,nodenummat3,allfval3,prunind3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8212:2: 8212 | allocate(prunenodenummattest1(testdataallsize,maxdepth),prunenodenummattest2(testdataallsize,maxdepth),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8213:2: 8213 | prunenodenummattest3(testdataallsize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8214:2: 8214 | allocate(prunenodenummat1(traindatasize1,maxdepth),prunenodenummat2(traindatasize2,maxdepth),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8215:2: 8215 | prunenodenummat3(traindatasize3,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8216:2: 8216 | call threetreesttcvgammatreepruning(prunind1,traindatasize1,testdataallsize,bestgammaval1,maxdepth,nodenummat1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8217:2: 8217 | nodenummattest1,allfval1,prunenodenummat1,prunenodenummattest1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8218:2: 8218 | call threetreesttcvgammatreepruning(prunind2,traindatasize2,testdataallsize,bestgammaval2,maxdepth,nodenummat2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8219:2: 8219 | nodenummattest2,allfval2,prunenodenummat2,prunenodenummattest2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8220:2: 8220 | call threetreesttcvgammatreepruning(prunind3,traindatasize3,testdataallsize,bestgammaval3,maxdepth,nodenummat3,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8221:2: 8221 | nodenummattest3,allfval3,prunenodenummat3,prunenodenummattest3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8222:2: 8222 | call threetreesttbootpredict(cvloop,traindata1,traindata2,traindata3,traindatasize1,traindatasize2,traindatasize3,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8223:2: 8223 | prunenodenummat1,prunenodenummat2,prunenodenummat3,testdata1,testdata2,testdata3,testdataall,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8224:2: 8224 | testdatasize1,testdatasize2,testdatasize3,testdataallsize,colnum,levelcount,prunenodenummattest1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8225:2: 8225 | prunenodenummattest2,prunenodenummattest3,maxdepth,r2cvval1sub,r2cvval2sub,r2cvval3sub,r2cvvalthreesub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8226:2: 8226 | r2cvvalvec1(cvloop) = r2cvval1sub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8227:2: 8227 | r2cvvalvec2(cvloop) = r2cvval2sub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8228:2: 8228 | r2cvvalvec3(cvloop) = r2cvval3sub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8229:2: 8229 | r2cvvalvecthree(cvloop) = r2cvvalthreesub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8230:2: 8230 | deallocate(prunenodenummattest1,prunenodenummattest2,prunenodenummattest3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8231:2: 8231 | deallocate(prunenodenummat1,prunenodenummat2,prunenodenummat3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8232:2: 8232 | deallocate(traindata1,traindata2,traindata3,testdata1,testdata2,testdata3,testdataall) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8233:2: 8233 | deallocate(nodenummat1,nodenummat2,nodenummat3,nodenummattest1,nodenummattest2,nodenummattest3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8234:2: 8234 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8235:2: 8235 | r2cvval1=sum(r2cvvalvec1)/dble(ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8236:2: 8236 | r2cvval2=sum(r2cvvalvec2)/dble(ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8237:2: 8237 | r2cvval3=sum(r2cvvalvec3)/dble(ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8238:2: 8238 | r2cvvalthree=sum(r2cvvalvecthree)/dble(ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8239:2: 8239 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8240:2: 8240 | r2cvval1=sum(r2cvvalvec1)/dble(ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8241:2: 8241 | r2cvval2=sum(r2cvvalvec2)/dble(ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8242:2: 8242 | r2cvval3=sum(r2cvvalvec3)/dble(ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8243:2: 8243 | r2cvvalthree=sum(r2cvvalvecthree)/dble(ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8244:2: 8244 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8247:2: 8247 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8248:2: 8248 | integer, intent(in) :: msize,colnum,Ksplit,levelcount,cv | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8249:2: 8249 | integer, intent(in) :: iseed | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8250:2: 8250 | integer, intent(in) :: cvindin(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8251:2: 8251 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8252:2: 8252 | integer, intent(out) :: cvind(msize), cvsize(Ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8253:2: 8253 | integer i,subnum, randval, cvsizecou(Ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8254:2: 8254 | integer, allocatable :: cvindsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8255:2: 8255 | double precision randvalsub,ii | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8256:2: 8256 | subnum = msize/levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8257:2: 8257 | cvsize(:) = subnum/Ksplit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8258:2: 8258 | do i = 1,(subnum - sum(cvsize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8259:2: 8259 | cvsize(i) = cvsize(i) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8260:2: 8260 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8261:2: 8261 | if(cv==1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8262:2: 8262 | cvind(:) = cvindin(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8263:2: 8263 | goto 9000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8264:2: 8264 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8265:2: 8265 | allocate(cvindsub(subnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8266:2: 8266 | cvsizecou(:) = cvsize(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8267:2: 8267 | do i = 1,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8268:2: 8268 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8269:2: 8269 | call unifrand(randvalsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8270:2: 8270 | randval = int(randvalsub * dble(Ksplit)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8271:2: 8271 | if(cvsizecou(randval) > 0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8272:2: 8272 | cvsizecou(randval) = cvsizecou(randval) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8273:2: 8273 | cvindsub(i) = randval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8274:2: 8274 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8275:2: 8275 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8276:2: 8276 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8277:2: 8277 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8278:2: 8278 | do i = 1,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8279:2: 8279 | cvind((levelcount*(i-1)+1):(levelcount*i)) = cvindsub(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8280:2: 8280 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8284:2: 8284 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8285:2: 8285 | integer, intent(in) :: msize,colnum,Ksplit,testind,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8286:2: 8286 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8287:2: 8287 | integer, intent(in) :: cvind(msize),cvsize(Ksplit) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8288:2: 8288 | double precision, intent(out) :: traindata(((sum(cvsize)-cvsize(testind))*levelcount),colnum),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8289:2: 8289 | testdata((cvsize(testind)*levelcount),colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8290:2: 8290 | integer i,jtrain,jtest,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8291:2: 8291 | subnum = msize/levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8292:2: 8292 | jtest = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8293:2: 8293 | jtrain = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8294:2: 8294 | do i = 1,subnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8295:2: 8295 | if(cvind(((i-1)*levelcount)+1) == testind) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8296:2: 8296 | testdata((levelcount*(jtest-1)+1):(levelcount*jtest),:) = xydata((levelcount*(i-1)+1):(levelcount*i),:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8297:2: 8297 | jtest = jtest + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8298:2: 8298 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8299:2: 8299 | traindata((levelcount*(jtrain-1)+1):(levelcount*jtrain),:) = xydata((levelcount*(i-1)+1):(levelcount*i),:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8300:2: 8300 | jtrain = jtrain + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8301:2: 8301 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8302:2: 8302 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8307:2: 8307 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8308:2: 8308 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,beta1len,beta2len,levelcount,minsplit,minbucket,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8309:2: 8309 | integer, intent(in) :: datatype(colnum-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8310:2: 8310 | double precision, intent(in) :: fixweight,alpha | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8311:2: 8311 | double precision, intent(in) :: traindata(traindatasize,colnum),beta1(beta1len),beta2(beta2len) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8312:2: 8312 | double precision, intent(in) :: xydata(msize,colnum),testdata(testdatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8313:2: 8313 | integer, intent(out) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8314:2: 8314 | integer,intent(out) :: prunind | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8315:2: 8315 | double precision,intent(out) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8316:2: 8316 | integer nodenummatsub(traindatasize,maxdepth),nodenummatsubtest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8317:2: 8317 | integer nodenum,hierarchy,indcou,ind1,ind2,wcou,i,j,weightind,splitind1,splitind2,separatecou,separateint,sizenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8318:2: 8318 | integer sizel,sizer,sizeltest,sizertest,treeloop,stopcount,nodeloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8319:2: 8319 | integer splitnum(colnum-3),countvec(colnum-3),dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8320:2: 8320 | double precision splitmcp,splitpval,weightval,weight,weightpval,splitweight,splitwfval,separatesp,alphamcp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8321:2: 8321 | double precision fval(2),splitfval(2),splitmcppval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8322:2: 8322 | integer,allocatable :: nodesize(:),indmat(:,:),ind1vec(:),ind2vec(:),splitindmat(:,:),splitindvec(:),nodesizetest(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8323:2: 8323 | integer,allocatable :: nodesizesub(:),nodesizesubtest(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8324:2: 8324 | double precision, allocatable :: wfmat(:,:),wfvec(:),anovadata(:,:),facvalout(:),splitfacval(:),separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8325:2: 8325 | double precision, allocatable :: xynodedata(:,:),xynodedatatest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8326:2: 8326 | double precision, allocatable :: fval_cache(:,:), groupsum_cache(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8327:2: 8327 | integer, allocatable :: flat_idx_vec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8328:2: 8328 | integer :: dfvec_const(5), flat_idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8329:2: 8329 | double precision :: splitgroupsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8330:2: 8330 | logical :: dfvec_set | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8331:2: 8331 | nodenummat(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8332:2: 8332 | nodenummat(:,1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8333:2: 8333 | nodenummattest(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8334:2: 8334 | nodenummattest(:,1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8335:2: 8335 | nodenum = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8336:2: 8336 | hierarchy = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8337:2: 8337 | allfval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8338:2: 8338 | splitmcp = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8339:2: 8339 | allocate(nodesize(2),nodesizetest(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8340:2: 8340 | prunind=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8341:2: 8341 | splitpval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8342:2: 8342 | call threetreesttcvsplitcount(traindatasize, colnum-3, traindata, DATATYPE, splitnum, countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8343:2: 8343 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8344:2: 8344 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8345:2: 8345 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8346:2: 8346 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8347:2: 8347 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8348:2: 8348 | allocate(anovadata(traindatasize,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8349:2: 8349 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8350:2: 8350 | dfvec_set = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8351:2: 8351 | indcou = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8352:2: 8352 | do ind1=4,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8353:2: 8353 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8354:2: 8354 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8355:2: 8355 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8356:2: 8356 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8357:2: 8357 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8358:2: 8358 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8359:2: 8359 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),traindata,traindatasize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8360:2: 8360 | call threetreesttcvrepANOVA(traindatasize,colnum,anovadata,fval,dfvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8361:2: 8361 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8362:2: 8362 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8363:2: 8363 | groupsum_cache(indcou) = sum(anovadata(:,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8364:2: 8364 | if (.not. dfvec_set) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8365:2: 8365 | dfvec_const = dfvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8366:2: 8366 | dfvec_set = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8367:2: 8367 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8368:2: 8368 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8369:2: 8369 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8370:2: 8370 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8371:2: 8371 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8372:2: 8372 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8373:2: 8373 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8374:2: 8374 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8375:2: 8375 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8376:2: 8376 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8377:2: 8377 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8378:2: 8378 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8379:2: 8379 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8380:2: 8380 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8381:2: 8381 | allocate(flat_idx_vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8382:2: 8382 | do i = 1,11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8383:2: 8383 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8384:2: 8384 | wfvec(i) = wfmat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8385:2: 8385 | ind1vec(i) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8386:2: 8386 | ind2vec(i) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8387:2: 8387 | flat_idx_vec(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8388:2: 8388 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8389:2: 8389 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8390:2: 8390 | allocate(flat_idx_vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8391:2: 8391 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8392:2: 8392 | wfvec(1) = wfmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8393:2: 8393 | ind1vec(1) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8394:2: 8394 | ind2vec(1) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8395:2: 8395 | flat_idx_vec(1) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8396:2: 8396 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8397:2: 8397 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8398:2: 8398 | do weightind=0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8399:2: 8399 | flat_idx = flat_idx_vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8400:2: 8400 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8401:2: 8401 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8402:2: 8402 | weight = 0.1d0 * dble(weightind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8403:2: 8403 | call threetreesttcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8404:2: 8404 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8405:2: 8405 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8406:2: 8406 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8407:2: 8407 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8408:2: 8408 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8409:2: 8409 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8410:2: 8410 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8411:2: 8411 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8412:2: 8412 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8413:2: 8413 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8414:2: 8414 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8415:2: 8415 | if(splitpval==0d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8416:2: 8416 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8417:2: 8417 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8418:2: 8418 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8419:2: 8419 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8420:2: 8420 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8421:2: 8421 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8422:2: 8422 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8423:2: 8423 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8424:2: 8424 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8425:2: 8425 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8426:2: 8426 | traindata,traindatasize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8427:2: 8427 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8428:2: 8428 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8429:2: 8429 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8430:2: 8430 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8431:2: 8431 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8432:2: 8432 | call threetreesttcvdatasum(testdata(:,splitind1),testdatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8433:2: 8433 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8434:2: 8434 | call threetreesttcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8435:2: 8435 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8436:2: 8436 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8437:2: 8437 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8438:2: 8438 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8439:2: 8439 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8440:2: 8440 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8441:2: 8441 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8442:2: 8442 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8443:2: 8443 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8444:2: 8444 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8445:2: 8445 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8446:2: 8446 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8447:2: 8447 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8448:2: 8448 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8449:2: 8449 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8450:2: 8450 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8451:2: 8451 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8452:2: 8452 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8453:2: 8453 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8454:2: 8454 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8455:2: 8455 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8456:2: 8456 | flat_idx = flat_idx_vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8457:2: 8457 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8458:2: 8458 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8459:2: 8459 | weight = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8460:2: 8460 | call threetreesttcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8461:2: 8461 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8462:2: 8462 | (dble(traindatasize) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8463:2: 8463 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8464:2: 8464 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8465:2: 8465 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8466:2: 8466 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8467:2: 8467 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8468:2: 8468 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8469:2: 8469 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8470:2: 8470 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8471:2: 8471 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8472:2: 8472 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8473:2: 8473 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8474:2: 8474 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8475:2: 8475 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8476:2: 8476 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),traindata,traindatasize,colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8477:2: 8477 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8478:2: 8478 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8479:2: 8479 | traindata,traindatasize,colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8480:2: 8480 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8481:2: 8481 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8482:2: 8482 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8483:2: 8483 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8484:2: 8484 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8485:2: 8485 | call threetreesttcvdatasum(testdata(:,splitind1),testdatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8486:2: 8486 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8487:2: 8487 | call threetreesttcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8488:2: 8488 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8489:2: 8489 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8490:2: 8490 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8491:2: 8491 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8492:2: 8492 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8493:2: 8493 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8494:2: 8494 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8495:2: 8495 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8496:2: 8496 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8497:2: 8497 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8498:2: 8498 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8499:2: 8499 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8500:2: 8500 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8501:2: 8501 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8502:2: 8502 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8503:2: 8503 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8504:2: 8504 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8505:2: 8505 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8506:2: 8506 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8507:2: 8507 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8508:2: 8508 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8509:2: 8509 | if (splitpval >= 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8510:2: 8510 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8511:2: 8511 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8512:2: 8512 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8513:2: 8513 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8514:2: 8514 | weight = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8515:2: 8515 | call threetreesttcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8516:2: 8516 | splitmcppval(1) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8517:2: 8517 | weight = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8518:2: 8518 | call threetreesttcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8519:2: 8519 | splitmcppval(2) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8520:2: 8520 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8521:2: 8521 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8522:2: 8522 | if(splitmcp > alphamcp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8523:2: 8523 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8524:2: 8524 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8525:2: 8525 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8526:2: 8526 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8527:2: 8527 | if(splitpval > alpha) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8528:2: 8528 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8529:2: 8529 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8530:2: 8530 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8531:2: 8531 | if(splitgroupsum < dble(levelcount*minbucket) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8532:2: 8532 | (dble(traindatasize) - splitgroupsum) < dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8533:2: 8533 | prunind = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8534:2: 8534 | goto 2002 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8535:2: 8535 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8536:2: 8536 | deallocate(fval_cache, groupsum_cache, flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8537:2: 8537 | sizenum = size(splitfacval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8538:2: 8538 | call threetreesttcvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8539:2: 8539 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8540:2: 8540 | call threetreesttcvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum+1,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8541:2: 8541 | hierarchy+1,nodenummattest,nodenummatsubtest,sizeltest,sizertest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8542:2: 8542 | nodesize(1) = sizel | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8543:2: 8543 | nodesize(2) = sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8544:2: 8544 | nodesizetest(1) = sizeltest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8545:2: 8545 | nodesizetest(2) = sizertest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8546:2: 8546 | deallocate(anovadata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8547:2: 8547 | allfval(1) = splitwfval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8548:2: 8548 | nodenummat(:,:) = nodenummatsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8549:2: 8549 | nodenummattest(:,:) = nodenummatsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8550:2: 8550 | do treeloop = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8551:2: 8551 | stopcount = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8552:2: 8552 | hierarchy = hierarchy + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8553:2: 8553 | do nodeloop = 1,(2**treeloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8554:2: 8554 | if(allocated(wfmat) .or. allocated(indmat) .or. allocated(wfvec) .or. allocated(ind1vec) .or. allocated(ind2vec)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8555:2: 8555 | deallocate(wfmat,indmat,wfvec,ind1vec,ind2vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8556:2: 8556 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8557:2: 8557 | nodenum = nodenum + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8558:2: 8558 | splitpval = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8559:2: 8559 | allocate(xynodedata(nodesize(nodeloop),colnum),anovadata(nodesize(nodeloop),4),xynodedatatest(nodesizetest(nodeloop),colnum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8560:2: 8560 | if(nodesize(nodeloop) < (levelcount*minsplit)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8561:2: 8561 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8562:2: 8562 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8563:2: 8563 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8564:2: 8564 | call threetreesttcvnodedata(traindata,traindatasize,colnum,nodenum,hierarchy,nodenummat,nodesize(nodeloop),xynodedata) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8565:2: 8565 | call threetreesttcvnodedata(testdata,testdatasize,colnum,nodenum,hierarchy,nodenummattest,nodesizetest(nodeloop),xynodedatatest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8566:2: 8566 | call threetreesttcvsplitcount(nodesize(nodeloop), colnum-3, xynodedata, DATATYPE, splitnum, countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8567:2: 8567 | if(sum(splitnum) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8568:2: 8568 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8569:2: 8569 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8570:2: 8570 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8571:2: 8571 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8572:2: 8572 | allocate(wfmat(sum(splitnum),11),indmat(sum(splitnum),2),wfvec(11),ind1vec(11),ind2vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8573:2: 8573 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8574:2: 8574 | allocate(wfmat(sum(splitnum),1),indmat(sum(splitnum),2),wfvec(1),ind1vec(1),ind2vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8575:2: 8575 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8576:2: 8576 | wfmat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8577:2: 8577 | indmat(:,:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8578:2: 8578 | indcou = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8579:2: 8579 | allocate(fval_cache(sum(splitnum),2), groupsum_cache(sum(splitnum))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8580:2: 8580 | dfvec_set = .false. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8581:2: 8581 | do ind1=4,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8582:2: 8582 | if(splitnum(ind1-3) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8583:2: 8583 | goto 2000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8584:2: 8584 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8585:2: 8585 | if(allocated(splitindmat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8586:2: 8586 | deallocate(splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8587:2: 8587 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8588:2: 8588 | if(.not. allocated(splitindmat)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8589:2: 8589 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8590:2: 8590 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8591:2: 8591 | if(allocated(facvalout)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8592:2: 8592 | deallocate(facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8593:2: 8593 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8594:2: 8594 | if(.not. allocated(facvalout)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8595:2: 8595 | allocate(facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8596:2: 8596 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8597:2: 8597 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,splitnum(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8598:2: 8598 | countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8599:2: 8599 | do ind2 = 1,splitnum(ind1-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8600:2: 8600 | indcou = indcou + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8601:2: 8601 | indmat(indcou,1) = ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8602:2: 8602 | indmat(indcou,2) = ind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8603:2: 8603 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),xynodedata,nodesize(nodeloop),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8604:2: 8604 | colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8605:2: 8605 | call threetreesttcvrepANOVA(nodesize(nodeloop),colnum,anovadata,fval,dfvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8606:2: 8606 | fval_cache(indcou,1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8607:2: 8607 | fval_cache(indcou,2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8608:2: 8608 | groupsum_cache(indcou) = sum(anovadata(:,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8609:2: 8609 | if (.not. dfvec_set) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8610:2: 8610 | dfvec_const = dfvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8611:2: 8611 | dfvec_set = .true. | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8612:2: 8612 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8613:2: 8613 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8614:2: 8614 | do wcou = 0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8615:2: 8615 | weightval = 0.1d0 * dble(wcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8616:2: 8616 | wfmat(indcou,wcou+1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8617:2: 8617 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8618:2: 8618 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8619:2: 8619 | weightval = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8620:2: 8620 | wfmat(indcou,1) = (weightval*fval(1)) + ((1d0-weightval)*fval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8621:2: 8621 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8622:2: 8622 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8623:2: 8623 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8624:6: 8624 | 2000 continue | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8625:2: 8625 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8626:2: 8626 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8627:2: 8627 | allocate(flat_idx_vec(11)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8628:2: 8628 | do i = 1,11 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8629:2: 8629 | j = maxloc(wfmat(1:sum(splitnum),i), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8630:2: 8630 | wfvec(i) = wfmat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8631:2: 8631 | ind1vec(i) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8632:2: 8632 | ind2vec(i) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8633:2: 8633 | flat_idx_vec(i) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8634:2: 8634 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8635:2: 8635 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8636:2: 8636 | allocate(flat_idx_vec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8637:2: 8637 | j = maxloc(wfmat(1:sum(splitnum),1), dim=1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8638:2: 8638 | wfvec(1) = wfmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8639:2: 8639 | ind1vec(1) = indmat(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8640:2: 8640 | ind2vec(1) = indmat(j,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8641:2: 8641 | flat_idx_vec(1) = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8642:2: 8642 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8643:2: 8643 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8644:2: 8644 | do weightind=0,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8645:2: 8645 | flat_idx = flat_idx_vec(weightind+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8646:2: 8646 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8647:2: 8647 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8648:2: 8648 | weight = 0.1d0 * dble(weightind) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8649:2: 8649 | call threetreesttcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8650:2: 8650 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8651:2: 8651 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8652:2: 8652 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8653:2: 8653 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8654:2: 8654 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8655:2: 8655 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8656:2: 8656 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8657:2: 8657 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8658:2: 8658 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8659:2: 8659 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8660:2: 8660 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8661:2: 8661 | if(splitpval==0d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8662:2: 8662 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8663:2: 8663 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8664:2: 8664 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8665:2: 8665 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8666:2: 8666 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8667:2: 8667 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8668:2: 8668 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8669:2: 8669 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8670:2: 8670 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8671:2: 8671 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8672:2: 8672 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8673:2: 8673 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8674:2: 8674 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8675:2: 8675 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8676:2: 8676 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8677:2: 8677 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8678:2: 8678 | call threetreesttcvdatasum(testdata(:,splitind1),testdatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8679:2: 8679 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8680:2: 8680 | call threetreesttcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8681:2: 8681 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8682:2: 8682 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8683:2: 8683 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8684:2: 8684 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8685:2: 8685 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8686:2: 8686 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8687:2: 8687 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8688:2: 8688 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8689:2: 8689 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8690:2: 8690 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8691:2: 8691 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8692:2: 8692 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8693:2: 8693 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8694:2: 8694 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8695:2: 8695 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8696:2: 8696 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8697:2: 8697 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8698:2: 8698 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8699:2: 8699 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8700:2: 8700 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8701:2: 8701 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8702:2: 8702 | flat_idx = flat_idx_vec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8703:2: 8703 | fval(1) = fval_cache(flat_idx, 1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8704:2: 8704 | fval(2) = fval_cache(flat_idx, 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8705:2: 8705 | weight = fixweight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8706:2: 8706 | call threetreesttcvweightedpval(weight,fval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8707:2: 8707 | if(splitpval > weightpval .and. groupsum_cache(flat_idx) > dble(levelcount*minbucket) .and. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8708:2: 8708 | (dble(nodesize(nodeloop)) - groupsum_cache(flat_idx)) > dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8709:2: 8709 | splitwfval = weight*fval(1) + (1d0-weight)*fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8710:2: 8710 | splitfval(1) = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8711:2: 8711 | splitfval(2) = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8712:2: 8712 | splitpval = weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8713:2: 8713 | splitind1 = indmat(flat_idx,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8714:2: 8714 | splitind2 = indmat(flat_idx,2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8715:2: 8715 | splitweight = weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8716:2: 8716 | splitgroupsum = groupsum_cache(flat_idx) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8717:2: 8717 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8718:2: 8718 | if (splitpval < 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8719:2: 8719 | ind1 = splitind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8720:2: 8720 | ind2 = splitind2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8721:2: 8721 | allocate(splitindmat(splitnum(ind1-3),countvec(ind1-3)), facvalout(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8722:2: 8722 | call threetreesttcvsplitmat(ind1,datatype(ind1-3),xynodedata,nodesize(nodeloop),colnum,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8723:2: 8723 | splitnum(ind1-3),countvec(ind1-3),splitindmat) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8724:2: 8724 | call threetreesttcvsplitdata(splitindmat(ind2,:),countvec(ind1-3),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8725:2: 8725 | xynodedata,nodesize(nodeloop),colnum,ind1,anovadata,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8726:2: 8726 | if(allocated(splitfacval)) deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8727:2: 8727 | allocate(splitfacval(countvec(ind1-3)),splitindvec(countvec(ind1-3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8728:2: 8728 | splitfacval = facvalout | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8729:2: 8729 | splitindvec = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8730:2: 8730 | if(datatype(splitind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8731:2: 8731 | call threetreesttcvdatasum(testdata(:,splitind1),testdatasize,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8732:2: 8732 | allocate(separateval(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8733:2: 8733 | call threetreesttcvdataval(testdata(:,splitind1),testdatasize,separateval,separatecou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8734:2: 8734 | do separateint = 1,(size(splitindvec)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8735:2: 8735 | if(abs(splitindvec(separateint+1) - splitindvec(separateint)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8736:2: 8736 | separatesp = splitfacval(separateint+1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8737:2: 8737 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8738:2: 8738 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8739:2: 8739 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8740:2: 8740 | deallocate(splitfacval,splitindvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8741:2: 8741 | allocate(splitfacval(separatecou),splitindvec(separatecou)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8742:2: 8742 | splitfacval(:) = separateval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8743:2: 8743 | do separateint = 1,separatecou | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8744:2: 8744 | if(splitfacval(separateint) < separatesp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8745:2: 8745 | splitindvec(separateint) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8746:2: 8746 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8747:2: 8747 | splitindvec(separateint) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8748:2: 8748 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8749:2: 8749 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8750:2: 8750 | deallocate(separateval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8751:2: 8751 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8752:2: 8752 | deallocate(splitindmat,facvalout) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8753:2: 8753 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8754:2: 8754 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8755:2: 8755 | if (splitpval >= 1d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8756:2: 8756 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8757:2: 8757 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8758:2: 8758 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8759:2: 8759 | if(fixweight == -1.0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8760:2: 8760 | weight = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8761:2: 8761 | call threetreesttcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8762:2: 8762 | splitmcppval(1) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8763:2: 8763 | weight = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8764:2: 8764 | call threetreesttcvweightedpval(weight,splitfval,dfvec_const,beta1,beta2,beta1len,beta2len,weightpval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8765:2: 8765 | splitmcppval(2) = 1d0 - weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8766:2: 8766 | splitmcp = 1d0 - (splitmcppval(1) * splitmcppval(2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8767:2: 8767 | alphamcp = 1d0-((1d0-alpha)*(1d0-alpha)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8768:2: 8768 | if(splitmcp > alphamcp) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8769:2: 8769 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8770:2: 8770 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8771:2: 8771 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8772:2: 8772 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8773:2: 8773 | if(splitpval > alpha) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8774:2: 8774 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8775:2: 8775 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8776:2: 8776 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8777:2: 8777 | if(splitgroupsum < dble(levelcount*minbucket) .or. & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8778:2: 8778 | (dble(nodesize(nodeloop)) - splitgroupsum) < dble(levelcount*minbucket)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8779:2: 8779 | stopcount = stopcount + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8780:2: 8780 | goto 2001 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8781:2: 8781 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8782:2: 8782 | allfval(nodenum) = splitwfval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8783:2: 8783 | if(.not. allocated(nodesizesub)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8784:2: 8784 | allocate(nodesizesub(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8785:2: 8785 | nodesizesub(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8786:2: 8786 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8787:2: 8787 | if(.not. allocated(nodesizesubtest)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8788:2: 8788 | allocate(nodesizesubtest(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8789:2: 8789 | nodesizesubtest(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8790:2: 8790 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8791:2: 8791 | sizenum = size(splitfacval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8792:2: 8792 | call threetreesttcvnodenumber(traindata,maxdepth,traindatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8793:2: 8793 | hierarchy+1,nodenummat,nodenummatsub,sizel,sizer) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8794:2: 8794 | call threetreesttcvnodenumber(testdata,maxdepth,testdatasize,colnum,splitfacval,splitindvec,sizenum,splitind1,nodenum*2,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8795:2: 8795 | hierarchy+1,nodenummattest,nodenummatsubtest,sizeltest,sizertest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8796:2: 8796 | nodenummat(:,:) = nodenummatsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8797:2: 8797 | nodenummattest(:,:) = nodenummatsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8798:2: 8798 | nodesizesub(2*nodeloop-1) = sizel | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8799:2: 8799 | nodesizesub(2*nodeloop) = sizer | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8800:2: 8800 | nodesizesubtest(2*nodeloop-1) = sizeltest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8801:2: 8801 | nodesizesubtest(2*nodeloop) = sizertest | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8802:6: 8802 | 2001 continue | 1~~~~~~~ Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8803:2: 8803 | if(allocated(fval_cache)) deallocate(fval_cache, groupsum_cache, flat_idx_vec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8804:2: 8804 | deallocate(anovadata,xynodedata,xynodedatatest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8805:2: 8805 | if(stopcount == 2**treeloop) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8806:2: 8806 | goto 2003 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8807:2: 8807 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8808:2: 8808 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8809:2: 8809 | deallocate(nodesize,nodesizetest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8810:2: 8810 | allocate(nodesize(2**hierarchy),nodesizetest(2**hierarchy)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8811:2: 8811 | nodesize(:) = nodesizesub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8812:2: 8812 | nodesizetest(:) = nodesizesubtest(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8813:2: 8813 | deallocate(nodesizesub,nodesizesubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8814:2: 8814 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8816:2: 8816 | deallocate(nodesize,nodesizetest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8820:2: 8820 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8821:2: 8821 | integer, intent(in) :: samplesize, pp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8822:2: 8822 | double precision, intent(in) :: sampledata(samplesize,pp+3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8823:2: 8823 | integer, intent(in) :: datatype(pp) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8824:2: 8824 | integer, intent(out) :: splitnum(pp), countvec(pp) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8825:2: 8825 | double precision datasample(samplesize), sortsample(samplesize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8826:2: 8826 | integer i, j, count, facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8827:2: 8827 | do i = 4,pp+3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8828:2: 8828 | datasample = sampledata(:,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8829:2: 8829 | if(datatype(i-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8830:2: 8830 | call threetreesttcvdatasum(sampledata(:,i),samplesize,facsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8831:2: 8831 | splitnum(i-3) = facsum - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8832:2: 8832 | elseif(datatype(i-3) == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8833:2: 8833 | call threetreesttcvdatasum(sampledata(:,i),samplesize,facsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8834:2: 8834 | splitnum(i-3) = (2 ** (facsum-1)) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8835:2: 8835 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8836:2: 8836 | countvec(i-3) = facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8837:2: 8837 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8840:2: 8840 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8841:2: 8841 | integer,intent(in) :: msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8842:2: 8842 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8843:2: 8843 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8844:2: 8844 | integer, intent(out) :: facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8845:2: 8845 | integer count, j, i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8846:2: 8846 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8847:2: 8847 | call threetreesttcvdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8848:2: 8848 | count = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8849:2: 8849 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8850:2: 8850 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8851:2: 8851 | count = count + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8852:2: 8852 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8853:2: 8853 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8854:2: 8854 | facsum = count | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8857:2: 8857 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8858:2: 8858 | integer,intent(in)::start,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8859:2: 8859 | double precision,intent(inout)::datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8860:2: 8860 | double precision x,t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8861:2: 8861 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8862:2: 8862 | x = datavec((start+msize)/2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8863:2: 8863 | i = start | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8864:2: 8864 | j = msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8865:2: 8865 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8866:2: 8866 | do while (datavec(i) < x) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8867:2: 8867 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8868:2: 8868 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8869:2: 8869 | do while (x < datavec(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8870:2: 8870 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8871:2: 8871 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8872:2: 8872 | if (i >= j) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8873:2: 8873 | t = datavec(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8874:2: 8874 | datavec(i) = datavec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8875:2: 8875 | datavec(j) = t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8876:2: 8876 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8877:2: 8877 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8878:2: 8878 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8879:2: 8879 | if (start < i-1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8880:2: 8880 | call threetreesttcvdatasort(datavec, start, i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8881:2: 8881 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8882:2: 8882 | if (j+1 < msize) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8883:2: 8883 | call threetreesttcvdatasort(datavec, j+1, msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8884:2: 8884 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8885:2: 8885 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8888:2: 8888 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8889:2: 8889 | integer, intent(in) :: varnum,datatype,msize,colnum,splitnum,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8890:2: 8890 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8891:2: 8891 | integer, intent(out) :: splitindmat(splitnum,countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8892:2: 8892 | integer i,j,splitindmat1(splitnum,2), count_0, count_1, idx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8893:2: 8893 | if(datatype == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8894:2: 8894 | do i = 1,splitnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8895:2: 8895 | do j = 1,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8896:2: 8896 | if(i >= j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8897:2: 8897 | splitindmat(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8898:2: 8898 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8899:2: 8899 | splitindmat(i,j) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8900:2: 8900 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8901:2: 8901 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8902:2: 8902 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8903:2: 8903 | elseif(datatype == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8904:2: 8904 | idx = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8905:2: 8905 | do i = 0, 2**(countvec-1) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8906:2: 8906 | count_0 = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8907:2: 8907 | count_1 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8908:2: 8908 | splitindmat(idx, 1) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8909:2: 8909 | do j = 0, countvec - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8910:2: 8910 | if (iand(i, 2**j) /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8911:2: 8911 | splitindmat(idx, j+2) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8912:2: 8912 | count_1 = count_1 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8913:2: 8913 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8914:2: 8914 | splitindmat(idx, j+2) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8915:2: 8915 | count_0 = count_0 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8916:2: 8916 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8917:2: 8917 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8918:2: 8918 | if (count_0 > 0 .and. count_1 > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8919:2: 8919 | idx = idx + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8920:2: 8920 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8921:2: 8921 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8922:2: 8922 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8925:2: 8925 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8926:2: 8926 | integer, intent(in) :: countvec,msize,colnum,ind1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8927:2: 8927 | integer, intent(in) :: splitindmat(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8928:2: 8928 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8929:2: 8929 | double precision, intent(out) :: anovadata(msize,4),facvalout(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8930:2: 8930 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8931:2: 8931 | double precision facval(countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8932:2: 8932 | call threetreesttcvdataval(xydata(:,ind1),msize,facval,countvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8933:2: 8933 | facvalout = facval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8934:2: 8934 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8935:2: 8935 | do j = 1,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8936:2: 8936 | if(xydata(i,ind1) == facval(j)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8937:2: 8937 | anovadata(i,1:3) = xydata(i,1:3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8938:2: 8938 | anovadata(i,4) = splitindmat(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8939:2: 8939 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8940:2: 8940 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8941:2: 8941 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8944:2: 8944 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8945:2: 8945 | integer,intent(in) :: msize, pp | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8946:2: 8946 | double precision, intent(in) :: anovadata(msize,4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8947:2: 8947 | double precision, intent(OUT) :: fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8948:2: 8948 | integer, intent(OUT) :: dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8949:2: 8949 | integer i, gi, ti, si, max_subj_id, timecount, nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8950:2: 8950 | double precision ymean, sstotal, ssgroup, sstime, ssgrouptime, sssubject, sserr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8951:2: 8951 | double precision ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8952:2: 8952 | integer, allocatable :: subj_map(:), si_arr(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8953:2: 8953 | double precision, allocatable :: ygroup(:), ytime(:), ysubject(:), ygrouptime(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8954:2: 8954 | double precision, allocatable :: ygroupcount(:), ytimecount(:), ysubjectcount(:), ygrouptimecount(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8955:2: 8955 | timecount = nint(maxval(anovadata(:,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8956:2: 8956 | max_subj_id = nint(maxval(anovadata(:,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8957:2: 8957 | allocate(subj_map(max_subj_id)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8958:2: 8958 | subj_map(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8959:2: 8959 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8960:2: 8960 | subj_map(nint(anovadata(i,2))) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8961:2: 8961 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8962:2: 8962 | nsubjects = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8963:2: 8963 | do i = 1, max_subj_id | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8964:2: 8964 | if (subj_map(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8965:2: 8965 | nsubjects = nsubjects + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8966:2: 8966 | subj_map(i) = nsubjects | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8967:2: 8967 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8968:2: 8968 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8969:2: 8969 | dfvec(1) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8970:2: 8970 | dfvec(2) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8971:2: 8971 | dfvec(3) = timecount - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8972:2: 8972 | dfvec(4) = nsubjects - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8973:2: 8973 | dfvec(5) = (timecount - 1) * (nsubjects - 2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8974:2: 8974 | allocate(ygroup(2), ytime(timecount), ysubject(nsubjects), ygrouptime(2, timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8975:2: 8975 | allocate(ygroupcount(2), ytimecount(timecount), ysubjectcount(nsubjects), ygrouptimecount(2, timecount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8976:2: 8976 | allocate(si_arr(msize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8977:2: 8977 | ygroup(:) = 0d0; ytime(:) = 0d0; ysubject(:) = 0d0; ygrouptime(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8978:2: 8978 | ygroupcount(:) = 0d0; ytimecount(:) = 0d0; ysubjectcount(:) = 0d0; ygrouptimecount(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8979:2: 8979 | ymean = sum(anovadata(:,1)) / msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8980:2: 8980 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8981:2: 8981 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8982:2: 8982 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8983:2: 8983 | si = subj_map(nint(anovadata(i,2))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8984:2: 8984 | si_arr(i) = si | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8985:2: 8985 | ygroup(gi) = ygroup(gi) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8986:2: 8986 | ygroupcount(gi) = ygroupcount(gi) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8987:2: 8987 | ytime(ti) = ytime(ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8988:2: 8988 | ytimecount(ti) = ytimecount(ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8989:2: 8989 | ysubject(si) = ysubject(si) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8990:2: 8990 | ysubjectcount(si) = ysubjectcount(si) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8991:2: 8991 | ygrouptime(gi,ti) = ygrouptime(gi,ti) + anovadata(i,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8992:2: 8992 | ygrouptimecount(gi,ti) = ygrouptimecount(gi,ti) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8993:2: 8993 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8994:2: 8994 | ygroup = ygroup / ygroupcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8995:2: 8995 | ytime = ytime / ytimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8996:2: 8996 | ysubject = ysubject / ysubjectcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8997:2: 8997 | ygrouptime = ygrouptime / ygrouptimecount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8998:2: 8998 | sstotal = 0d0; ssgroup = 0d0; sstime = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:8999:2: 8999 | ssgrouptime = 0d0; sssubject = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9000:2: 9000 | do i = 1, msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9001:2: 9001 | gi = nint(anovadata(i,4)) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9002:2: 9002 | ti = nint(anovadata(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9003:2: 9003 | si = si_arr(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9004:2: 9004 | sstotal = sstotal + (anovadata(i,1) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9005:2: 9005 | ssgroup = ssgroup + (ygroup(gi) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9006:2: 9006 | sstime = sstime + (ytime(ti) - ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9007:2: 9007 | ssgrouptime = ssgrouptime + (ygrouptime(gi,ti) - ygroup(gi) - ytime(ti) + ymean)**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9008:2: 9008 | sssubject = sssubject + (ysubject(si) - ygroup(gi))**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9009:2: 9009 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9010:2: 9010 | sserr = sstotal - (ssgroup + sstime + ssgrouptime + sssubject) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9011:2: 9011 | ms(1) = ssgroup / dfvec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9012:2: 9012 | ms(2) = sstime / dfvec(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9013:2: 9013 | ms(3) = ssgrouptime / dfvec(3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9014:2: 9014 | ms(4) = sssubject / dfvec(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9015:2: 9015 | ms(5) = sserr / dfvec(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9016:2: 9016 | fval(1) = ms(1) / ms(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9017:2: 9017 | fval(2) = ms(3) / ms(5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9018:2: 9018 | deallocate(subj_map, si_arr) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9019:2: 9019 | deallocate(ygroup, ytime, ysubject, ygrouptime) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9020:2: 9020 | deallocate(ygroupcount, ytimecount, ysubjectcount, ygrouptimecount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9023:2: 9023 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9024:2: 9024 | integer, intent(in) :: dfvec(5),beta1len,beta2len | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9025:2: 9025 | double precision, intent(in) :: weight, fval(2),beta1(beta1len),beta2(beta2len) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9026:2: 9026 | double precision, intent(out) :: weightpval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9027:2: 9027 | double precision DFD1, DFN1, DFD2, DFN2, TESTVAL1, TESTVAL2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9028:2: 9028 | double precision xb,eps,s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9029:2: 9029 | eps = 1d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9030:2: 9030 | DFD1 = dble(dfvec(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9031:2: 9031 | DFN1 = dble(dfvec(4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9032:2: 9032 | DFD2 = dble(dfvec(3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9033:2: 9033 | DFN2 = dble(dfvec(5)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9034:2: 9034 | TESTVAL1 = fval(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9035:2: 9035 | TESTVAL2 = fval(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9036:2: 9036 | if(abs(weight - 1d0) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9037:2: 9037 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9038:2: 9038 | call threetreesttcvpfdist(DFD1,DFN1,0d0,TESTval1,eps,beta1(int(DFN1)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9039:2: 9039 | weightpval = 1.0d0 - s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9040:2: 9040 | goto 10000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9041:2: 9041 | elseif(abs(weight) < 1d-15) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9042:2: 9042 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9043:2: 9043 | call threetreesttcvpfdist(DFD2,DFN2,0d0,TESTval2,eps,beta2(int(DFN2)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9044:2: 9044 | weightpval = 1.0d0 - s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9045:2: 9045 | goto 10000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9046:2: 9046 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9047:2: 9047 | xb = (weight*TESTVAL1) + ((1d0-weight)*TESTVAL2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9048:2: 9048 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9049:2: 9049 | call threetreesttcvdemethod(xb,weight,DFD1,DFN1,DFD2,DFN2,eps,beta1(int(DFN1)),beta2(int(DFN2)),s) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9050:2: 9050 | weightpval = 1d0-s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9052:2: 9052 | weightpval = max(0d0, min(1d0, weightpval)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9055:2: 9055 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9056:2: 9056 | integer,parameter::kmin=3,kmax=14 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9057:2: 9057 | double precision,parameter::hr=6.d0, c0=0.01d0, pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9058:2: 9058 | double precision,intent(in)::a,b,eps,df1,df2,beta | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9059:2: 9059 | double precision,intent(out)::s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9060:2: 9060 | double precision res,zval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9061:2: 9061 | double precision inv_beta, df_ratio, df1_half, df12_half, form3, df1m2_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9063:2: 9063 | double precision h,s0,xt,wt,t,as,shk,mba,pba,err,seps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9064:2: 9064 | inv_beta = 1d0 / beta | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9065:2: 9065 | df_ratio = df1/df2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9066:2: 9066 | df1_half = df1/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9067:2: 9067 | df12_half = (df1+df2)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9068:2: 9068 | form3 = df_ratio**df1_half | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9069:2: 9069 | df1m2_half = (df1-2d0)/2d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9074:2: 9074 | zval = pba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9075:2: 9075 | res = inv_beta * form3 * (zval**df1m2_half) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9076:2: 9076 | ((1d0+(df_ratio*zval))**df12_half) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9081:2: 9081 | s=0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9082:2: 9082 | nc=2*nc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9083:2: 9083 | h=h*0.5d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9084:2: 9084 | do j=1,nc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9085:2: 9085 | t=dble(2*j-nc-1)*h | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9086:2: 9086 | shk=pi2*sinh(t) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9087:2: 9087 | xt=tanh(shk) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9088:2: 9088 | wt=pi2*cosh(t)*(1d0 - xt*xt) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9089:2: 9089 | zval = mba*xt+pba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9090:2: 9090 | res = inv_beta * form3 * (zval**df1m2_half) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9091:2: 9091 | ((1d0+(df_ratio*zval))**df12_half) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9092:2: 9092 | s=s+res*wt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9093:2: 9093 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9094:2: 9094 | s=s0*0.5d0+s*h*mba | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9095:2: 9095 | as=abs(s); err=abs(s-s0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9096:2: 9096 | if(as.ge.1d0)err=err/as | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9097:2: 9097 | if(err.le.seps.and.l.ge.kmin)exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9098:2: 9098 | s0=s | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9099:2: 9099 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9102:2: 9102 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9103:2: 9103 | double precision,intent(in)::xb,weight,df11,df12,df21,df22,eps,beta1,beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9105:2: 9105 | integer,parameter::kmin=3, kmax=8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9106:2: 9106 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9133:2: 9133 | if(err.le.0.000001d0 .and. l>6)exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9142:2: 9142 | integer,parameter::kmin=3,kmax=8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9143:2: 9143 | double precision,parameter::hr=6.0d0,c0=0.01d0,pi2=1.5707963267948966d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9149:2: 9149 | inv_weight = 1d0-weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9183:2: 9183 | s=s+res*wt | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9194:2: 9194 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9195:2: 9195 | double precision,intent(in) :: z,v,weight,df11,df12,df21,df22,beta1,beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9196:2: 9196 | double precision,intent(out) :: res | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9197:2: 9197 | double precision zval,form1,form2,form3,form4,form5,form6,form7,form8,form9,s1,s2,eps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9198:2: 9198 | eps=1d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9199:2: 9199 | s1 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9200:2: 9200 | s2 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9201:2: 9201 | zval = (z-((1d0-weight)*v))/weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9202:2: 9202 | form1 = 1d0 / weight | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9203:2: 9203 | form2 = 1d0 / beta1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9204:2: 9204 | form3 = (df11/df12)**(df11/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9205:2: 9205 | form4 = zval**((df11-2d0)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9206:2: 9206 | form5 = (1d0+((df11/df12)*zval))**((df11+df12)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9207:2: 9207 | form6 = 1d0 / beta2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9208:2: 9208 | form7 = (df21/df22)**(df21/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9209:2: 9209 | form8 = v**((df21-2d0)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9210:2: 9210 | form9 = (1d0+((df21/df22)*v))**((df21+df22)/2d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9211:2: 9211 | res = form1 * (form2 * form3 * form4 / form5) * (form6 * form7 * form8 / form9) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9214:2: 9214 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9215:2: 9215 | integer,intent(in) :: msize, facsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9216:2: 9216 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9217:2: 9217 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9218:2: 9218 | double precision, intent(out) :: facval(facsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9219:2: 9219 | integer count, i, j, k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9220:2: 9220 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9221:2: 9221 | call threetreesttcvdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9222:2: 9222 | facval(1) = datavecsub(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9223:2: 9223 | k = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9224:2: 9224 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9225:2: 9225 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9226:2: 9226 | k = k + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9227:2: 9227 | facval(k) = datavecsub(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9228:2: 9228 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9229:2: 9229 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9233:2: 9233 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9234:2: 9234 | integer, intent(in) :: msize,colnum,sizenum,splitind1,nodenum,splitindvec(sizenum),hierarchy,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9235:2: 9235 | double precision, intent(in) :: xydata(msize,colnum),splitfacval(sizenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9236:2: 9236 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9237:2: 9237 | integer, intent(out) :: sizel,sizer,nodenummatsub(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9238:2: 9238 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9239:2: 9239 | sizel=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9240:2: 9240 | sizer=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9241:2: 9241 | nodenummatsub(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9242:2: 9242 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9243:2: 9243 | if(nodenummat(i,hierarchy-1) == (nodenum/2)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9244:2: 9244 | do j = 1,sizenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9245:2: 9245 | if(abs(xydata(i,splitind1) - splitfacval(j)) < (1.0d0*(10d0**(-10d0)))) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9246:2: 9246 | if(splitindvec(j) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9247:2: 9247 | nodenummatsub(i,hierarchy) = nodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9248:2: 9248 | sizel=sizel+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9249:2: 9249 | elseif(splitindvec(j) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9250:2: 9250 | nodenummatsub(i,hierarchy) = nodenum + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9251:2: 9251 | sizer=sizer+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9252:2: 9252 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9253:2: 9253 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9254:2: 9254 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9255:2: 9255 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9256:2: 9256 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9259:2: 9259 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9260:2: 9260 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9261:2: 9261 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9262:2: 9262 | integer, intent(in) :: nodenummat(msize,11) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9263:2: 9263 | double precision, intent(out) :: xynodedata(nodesize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9264:2: 9264 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9265:2: 9265 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9266:2: 9266 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9267:2: 9267 | if(nodenummat(i,hierarchy) == nodenum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9268:2: 9268 | xynodedata(j,:) = xydata(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9269:2: 9269 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9270:2: 9270 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9271:2: 9271 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9275:2: 9275 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9276:2: 9276 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9277:2: 9277 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9278:2: 9278 | double precision, intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9279:2: 9279 | double precision, intent(out) :: r2cvval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9280:2: 9280 | double precision, allocatable :: timepred(:,:),r2cvnumsub(:,:), timepredcou(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9281:2: 9281 | double precision r2cvnum,r2cvden,ymean | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9282:2: 9282 | integer i,j,k,l | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9283:2: 9283 | allocate(timepred(((2**maxdepth)-1),levelcount),r2cvnumsub(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9284:2: 9284 | allocate(timepredcou(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9285:2: 9285 | timepred(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9286:2: 9286 | r2cvnumsub(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9287:2: 9287 | timepredcou(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9288:2: 9288 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9289:2: 9289 | do j = 1,traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9290:2: 9290 | if(sum(nodenummat(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9291:2: 9291 | goto 3010 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9292:2: 9292 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9293:2: 9293 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9294:2: 9294 | if(nodenummat(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9295:2: 9295 | timepred(nodenummat(j,maxdepth),int(traindata(j,3))) = timepred(nodenummat(j,maxdepth),int(traindata(j,3))) + traindata(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9296:2: 9296 | timepredcou(nodenummat(j,maxdepth),int(traindata(j,3))) = timepredcou(nodenummat(j,maxdepth),int(traindata(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9297:2: 9297 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9298:2: 9298 | cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9299:2: 9299 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9300:2: 9300 | if(nodenummat(j,i) > 0 .and. nodenummat(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9301:2: 9301 | timepred(nodenummat(j,i),int(traindata(j,3))) = timepred(nodenummat(j,i),int(traindata(j,3))) + traindata(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9302:2: 9302 | timepredcou(nodenummat(j,i),int(traindata(j,3))) = timepredcou(nodenummat(j,i),int(traindata(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9303:2: 9303 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9304:2: 9304 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9305:2: 9305 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9307:2: 9307 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9308:2: 9308 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9309:2: 9309 | do j = 1,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9310:2: 9310 | timepred(i,j) = timepred(i,j)/timepredcou(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9311:2: 9311 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9312:2: 9312 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9313:2: 9313 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9314:2: 9314 | ymean = sum(testdata(:,1))/dble(testdatasize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9315:2: 9315 | r2cvnum = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9316:2: 9316 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9317:2: 9317 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9318:2: 9318 | do j=1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9319:2: 9319 | if(2**(j-1) <= i .and. i < 2**j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9320:2: 9320 | k = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9321:2: 9321 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9322:2: 9322 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9323:2: 9323 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9324:2: 9324 | do l = 1,testdatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9325:2: 9325 | if(nodenummattest(l,k) == i) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9326:2: 9326 | r2cvnumsub(i,int(testdata(l,3))) = r2cvnumsub(i,int(testdata(l,3))) + ((testdata(l,1) - timepred(i,int(testdata(l,3))))**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9327:2: 9327 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9328:2: 9328 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9329:2: 9329 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9330:2: 9330 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9331:2: 9331 | r2cvnum = sum(r2cvnumsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9332:2: 9332 | r2cvden = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9333:2: 9333 | do i = 1,testdatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9334:2: 9334 | r2cvden = r2cvden + ((testdata(i,1) - ymean) * (testdata(i,1) - ymean)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9335:2: 9335 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9336:2: 9336 | r2cvval = 1d0-(r2cvnum/r2cvden) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9337:2: 9337 | deallocate(timepred,r2cvnumsub,timepredcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9341:2: 9341 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9342:2: 9342 | integer,intent(in) :: prunind,testdatasize,maxdepth,traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9343:2: 9343 | integer,intent(in) :: nodenummattest(testdatasize,maxdepth),nodenummat(traindatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9344:2: 9344 | double precision,intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9345:2: 9345 | double precision,intent(in) :: gamma | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9346:2: 9346 | integer,intent(out) :: prunenodenummat(traindatasize,maxdepth),prunenodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9347:2: 9347 | double precision gammavec((2**(maxdepth-1))-1),allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9348:2: 9348 | double precision minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9349:2: 9349 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9350:2: 9350 | integer nottnodeval,allnodenum,minghnum,prunloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9351:2: 9351 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:),nodenummatnewtest(:,:),nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9352:2: 9352 | if(prunind==1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9353:2: 9353 | prunenodenummattest(:,:) = nodenummattest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9354:2: 9354 | prunenodenummat(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9355:2: 9355 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9356:2: 9356 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9357:2: 9357 | gammavec(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9358:2: 9358 | call threetreesttcvgterminalnodecount(nodenummat,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9359:2: 9359 | call threetreesttcvgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9360:2: 9360 | gammavec(1) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9361:2: 9361 | if(gammavec(1) > gamma) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9362:2: 9362 | prunenodenummattest(:,:) = nodenummattest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9363:2: 9363 | prunenodenummat(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9364:2: 9364 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9365:2: 9365 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9366:2: 9366 | allocate(nodenummatnew(traindatasize,maxdepth),nodenummatnewsub(traindatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9367:2: 9367 | allocate(nodenummatnewtest(testdatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9368:2: 9368 | call threetreesttcvgpruntreemat(nodenummat,maxdepth,traindatasize,minghnum,allfval,allfvalnew,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9369:2: 9369 | call threetreesttcvgpruntreemattest(nodenummattest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9370:2: 9370 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9371:2: 9371 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9372:2: 9372 | deallocate(nodenummatnewsub,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9373:2: 9373 | do prunloop = 2,((2**(maxdepth-1))-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9374:2: 9374 | allfvalnewsub(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9375:2: 9375 | call threetreesttcvgterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9376:2: 9376 | if(allnodenum == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9377:2: 9377 | prunenodenummattest(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9378:2: 9378 | prunenodenummattest(:,1) = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9379:2: 9379 | prunenodenummat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9380:2: 9380 | prunenodenummat(:,1) = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9381:2: 9381 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9382:2: 9382 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9383:2: 9383 | call threetreesttcvgweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9384:2: 9384 | gammavec(prunloop) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9385:2: 9385 | if(gammavec(prunloop-1) < gamma .and. gammavec(prunloop) > gamma) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9386:2: 9386 | prunenodenummattest(:,:) = nodenummatnewtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9387:2: 9387 | prunenodenummat(:,:) = nodenummatnew(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9388:2: 9388 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9389:2: 9389 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9390:2: 9390 | allocate(nodenummatnewsub(traindatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9391:2: 9391 | call threetreesttcvgpruntreemat(nodenummatnew,maxdepth,traindatasize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9392:2: 9392 | call threetreesttcvgpruntreemattest(nodenummatnewtest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9393:2: 9393 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9394:2: 9394 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9395:2: 9395 | allfvalnew(:) = allfvalnewsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9396:2: 9396 | deallocate(nodenummatnewsub,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9397:2: 9397 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9401:2: 9401 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9402:2: 9402 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9403:2: 9403 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9404:2: 9404 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9405:2: 9405 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9406:2: 9406 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9407:2: 9407 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9408:2: 9408 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9409:2: 9409 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9410:2: 9410 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9411:2: 9411 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9412:2: 9412 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9413:2: 9413 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9414:2: 9414 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9415:2: 9415 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9416:2: 9416 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9417:2: 9417 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9418:2: 9418 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9419:2: 9419 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9420:2: 9420 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9421:2: 9421 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9422:2: 9422 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9423:2: 9423 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9424:2: 9424 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9425:2: 9425 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9426:2: 9426 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9427:2: 9427 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9428:2: 9428 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9429:2: 9429 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9432:2: 9432 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9433:2: 9433 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9434:2: 9434 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9435:2: 9435 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9436:2: 9436 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9437:2: 9437 | double precision, intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9438:2: 9438 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9439:2: 9439 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9440:2: 9440 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9441:2: 9441 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9442:2: 9442 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9443:2: 9443 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9444:2: 9444 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9445:2: 9445 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9446:2: 9446 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9447:2: 9447 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9448:2: 9448 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9449:2: 9449 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9450:2: 9450 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9451:2: 9451 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9452:2: 9452 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9453:2: 9453 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9454:2: 9454 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9455:2: 9455 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9456:2: 9456 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9457:2: 9457 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9458:2: 9458 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9459:2: 9459 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9460:2: 9460 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9461:2: 9461 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9462:2: 9462 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9463:2: 9463 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9464:2: 9464 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9465:2: 9465 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9466:2: 9466 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9467:2: 9467 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9468:2: 9468 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9469:2: 9469 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9470:2: 9470 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9471:2: 9471 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9472:2: 9472 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9473:2: 9473 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9474:2: 9474 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9477:2: 9477 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9478:2: 9478 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9479:2: 9479 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9480:2: 9480 | double precision, intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9481:2: 9481 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9482:2: 9482 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9483:2: 9483 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9484:2: 9484 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9485:2: 9485 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9486:2: 9486 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9487:2: 9487 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9488:2: 9488 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9489:2: 9489 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9490:2: 9490 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9491:2: 9491 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9492:2: 9492 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9493:2: 9493 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9494:2: 9494 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9495:2: 9495 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9496:2: 9496 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9497:2: 9497 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9498:2: 9498 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9499:2: 9499 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9500:2: 9500 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9501:2: 9501 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9502:2: 9502 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9503:2: 9503 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9504:2: 9504 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9507:2: 9507 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9508:2: 9508 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9509:2: 9509 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9510:2: 9510 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9511:2: 9511 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9512:2: 9512 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9513:2: 9513 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9514:2: 9514 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9515:2: 9515 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9516:2: 9516 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9517:2: 9517 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9518:2: 9518 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9519:2: 9519 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9520:2: 9520 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9521:2: 9521 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9522:2: 9522 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9523:2: 9523 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9524:2: 9524 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9525:2: 9525 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9529:2: 9529 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9530:2: 9530 | integer, intent(in) :: maxdepth,levelcount,traindatasize,colnum,testdatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9531:2: 9531 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9532:2: 9532 | double precision, intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9533:2: 9533 | double precision, intent(in) :: allfval((2**maxdepth)-1),allgammaval((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9534:2: 9534 | double precision, intent(out) :: gammacv((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9535:2: 9535 | double precision allgammavaltrain((2**(maxdepth-1))-1),losspredsumvec((2**(maxdepth-1))-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9536:2: 9536 | double precision allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9537:2: 9537 | double precision losspredsum,minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9538:2: 9538 | integer cvprunloop,minghnum,allnodenum,nottnodeval,i,j,k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9539:2: 9539 | integer nottnodevec((2**maxdepth)-1),ncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9540:2: 9540 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:),nodenummatnewtest(:,:),nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9541:2: 9541 | allgammavaltrain(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9542:2: 9542 | gammacv(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9543:2: 9543 | losspredsumvec(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9544:2: 9544 | call threetreesttcvlosspredict(traindata,traindatasize,nodenummat,testdata,colnum,levelcount,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9545:2: 9545 | nodenummattest,testdatasize,maxdepth,losspredsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9546:2: 9546 | losspredsumvec(1) = losspredsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9547:2: 9547 | allocate(nodenummatnew(traindatasize,maxdepth),nodenummatnewtest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9548:2: 9548 | allfvalnew(:) = allfval(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9549:2: 9549 | nodenummatnew(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9550:2: 9550 | nodenummatnewtest(:,:) = nodenummattest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9551:2: 9551 | do cvprunloop = 1,((2**(maxdepth-1))-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9552:2: 9552 | allfvalnewsub(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9553:2: 9553 | call threetreesttcvbestterminalnodecount(nodenummatnew,traindatasize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9554:2: 9554 | if(allnodenum == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9555:2: 9555 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9556:2: 9556 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9557:2: 9557 | call threetreesttcvbestweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9558:2: 9558 | allocate(nodenummatnewsub(traindatasize,maxdepth),nodenummatnewsubtest(testdatasize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9559:2: 9559 | call threetreesttcvbestpruntreemat(nodenummatnew,maxdepth,traindatasize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9560:2: 9560 | call threetreesttcvbestpruntreemattest(nodenummatnewtest,maxdepth,testdatasize,minghnum,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9561:2: 9561 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9562:2: 9562 | nodenummatnewtest(:,:) = nodenummatnewsubtest(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9563:2: 9563 | allfvalnew(:) = allfvalnewsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9564:2: 9564 | deallocate(nodenummatnewsub,nodenummatnewsubtest) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9565:2: 9565 | allgammavaltrain(cvprunloop+1) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9566:2: 9566 | call threetreesttcvlosspredict(traindata,traindatasize,nodenummatnew,testdata,colnum,levelcount,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9567:2: 9567 | nodenummatnewtest,testdatasize,maxdepth,losspredsum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9568:2: 9568 | losspredsumvec(cvprunloop+1) = losspredsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9569:2: 9569 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9570:2: 9570 | gammacv(1) = losspredsumvec(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9571:2: 9571 | j = 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9572:2: 9572 | do i = 2,size(allgammaval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9573:2: 9573 | if(allgammaval(i) == 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9574:2: 9574 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9575:2: 9575 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9576:2: 9576 | if(allgammaval(i) <= allgammavaltrain(j)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9577:2: 9577 | gammacv(i) = losspredsumvec(j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9578:2: 9578 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9579:2: 9579 | do k = 1,size(allgammaval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9580:2: 9580 | if(allgammaval(i) > allgammavaltrain(j+k) .and. allgammavaltrain(j+k) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9581:2: 9581 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9582:2: 9582 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9583:2: 9583 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9584:2: 9584 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9585:2: 9585 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9586:2: 9586 | gammacv(i) = losspredsumvec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9587:2: 9587 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9588:2: 9588 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9589:2: 9589 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9593:2: 9593 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9594:2: 9594 | integer, intent(in) :: traindatasize,testdatasize,maxdepth,colnum,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9595:2: 9595 | integer, intent(in) :: nodenummat(traindatasize,maxdepth),nodenummattest(testdatasize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9596:2: 9596 | double precision, intent(in) :: traindata(traindatasize,colnum),testdata(testdatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9597:2: 9597 | double precision, intent(out) :: losspredsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9598:2: 9598 | double precision, allocatable :: timepred(:,:),losspred(:,:), timepredcou(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9599:2: 9599 | integer i,j,k,l | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9600:2: 9600 | allocate(timepred(((2**maxdepth)-1),levelcount),losspred(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9601:2: 9601 | allocate(timepredcou(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9602:2: 9602 | timepred(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9603:2: 9603 | losspred(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9604:2: 9604 | timepredcou(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9605:2: 9605 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9606:2: 9606 | do j = 1,traindatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9607:2: 9607 | if(sum(nodenummat(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9608:2: 9608 | goto 3010 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9609:2: 9609 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9610:2: 9610 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9611:2: 9611 | if(nodenummat(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9612:2: 9612 | timepred(nodenummat(j,maxdepth),int(traindata(j,3))) = timepred(nodenummat(j,maxdepth),int(traindata(j,3))) + traindata(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9613:2: 9613 | timepredcou(nodenummat(j,maxdepth),int(traindata(j,3))) = timepredcou(nodenummat(j,maxdepth),int(traindata(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9614:2: 9614 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9615:2: 9615 | elseif(nodenummat(j,i) > 0 .and. nodenummat(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9616:2: 9616 | timepred(nodenummat(j,i),int(traindata(j,3))) = timepred(nodenummat(j,i),int(traindata(j,3))) + traindata(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9617:2: 9617 | timepredcou(nodenummat(j,i),int(traindata(j,3))) = timepredcou(nodenummat(j,i),int(traindata(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9618:2: 9618 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9619:2: 9619 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9620:2: 9620 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9622:2: 9622 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9623:2: 9623 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9624:2: 9624 | do j = 1,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9625:2: 9625 | timepred(i,j) = timepred(i,j)/timepredcou(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9626:2: 9626 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9627:2: 9627 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9628:2: 9628 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9629:2: 9629 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9630:2: 9630 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9631:2: 9631 | do j=1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9632:2: 9632 | if(2**(j-1) <= i .and. i < 2**j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9633:2: 9633 | k = j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9634:2: 9634 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9635:2: 9635 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9636:2: 9636 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9637:2: 9637 | do l = 1,testdatasize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9638:2: 9638 | if(nodenummattest(l,k) == i) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9639:2: 9639 | losspred(i,int(testdata(l,3))) = losspred(i,int(testdata(l,3))) + ((testdata(l,1) - timepred(i,int(testdata(l,3))))**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9640:2: 9640 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9641:2: 9641 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9642:2: 9642 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9643:2: 9643 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9644:2: 9644 | losspredsum = sum(losspred) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9645:2: 9645 | deallocate(timepred,losspred,timepredcou) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9648:2: 9648 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9649:2: 9649 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9650:2: 9650 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9651:2: 9651 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9652:2: 9652 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9653:2: 9653 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9654:2: 9654 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9655:2: 9655 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9656:2: 9656 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9657:2: 9657 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9658:2: 9658 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9659:2: 9659 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9660:2: 9660 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9661:2: 9661 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9662:2: 9662 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9663:2: 9663 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9664:2: 9664 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9665:2: 9665 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9666:2: 9666 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9667:2: 9667 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9668:2: 9668 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9669:2: 9669 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9670:2: 9670 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9671:2: 9671 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9672:2: 9672 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9673:2: 9673 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9674:2: 9674 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9675:2: 9675 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9676:2: 9676 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9679:2: 9679 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9680:2: 9680 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9681:2: 9681 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9682:2: 9682 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9683:2: 9683 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9684:2: 9684 | double precision, intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9685:2: 9685 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9686:2: 9686 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9687:2: 9687 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9688:2: 9688 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9689:2: 9689 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9690:2: 9690 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9691:2: 9691 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9692:2: 9692 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9693:2: 9693 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9694:2: 9694 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9695:2: 9695 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9696:2: 9696 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9697:2: 9697 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9698:2: 9698 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9699:2: 9699 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9700:2: 9700 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9701:2: 9701 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9702:2: 9702 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9703:2: 9703 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9704:2: 9704 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9705:2: 9705 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9706:2: 9706 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9707:2: 9707 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9708:2: 9708 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9709:2: 9709 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9710:2: 9710 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9711:2: 9711 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9712:2: 9712 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9713:2: 9713 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9714:2: 9714 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9715:2: 9715 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9716:2: 9716 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9717:2: 9717 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9718:2: 9718 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9719:2: 9719 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9720:2: 9720 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9721:2: 9721 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9724:2: 9724 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9725:2: 9725 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9726:2: 9726 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9727:2: 9727 | double precision, intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9728:2: 9728 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9729:2: 9729 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9730:2: 9730 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9731:2: 9731 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9732:2: 9732 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9733:2: 9733 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9734:2: 9734 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9735:2: 9735 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9736:2: 9736 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9737:2: 9737 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9738:2: 9738 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9739:2: 9739 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9740:2: 9740 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9741:2: 9741 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9742:2: 9742 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9743:2: 9743 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9744:2: 9744 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9745:2: 9745 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9746:2: 9746 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9747:2: 9747 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9748:2: 9748 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9749:2: 9749 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9750:2: 9750 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9751:2: 9751 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9754:2: 9754 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9755:2: 9755 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9756:2: 9756 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9757:2: 9757 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9758:2: 9758 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9759:2: 9759 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9760:2: 9760 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9761:2: 9761 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9762:2: 9762 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9763:2: 9763 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9764:2: 9764 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9765:2: 9765 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9766:2: 9766 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9767:2: 9767 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9768:2: 9768 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9769:2: 9769 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9770:2: 9770 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9771:2: 9771 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9772:2: 9772 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9779:2: 9779 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9780:2: 9780 | integer,intent(in) :: colnum,levelcount,maxdepth,cvloop,traindatasize1,traindatasize2,traindatasize3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9781:2: 9781 | integer,intent(in) :: testdatasize1,testdatasize2,testdatasize3,testdataallsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9782:2: 9782 | integer,intent(in) :: nodenummat1(traindatasize1,maxdepth),nodenummat2(traindatasize2,maxdepth),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9783:2: 9783 | nodenummat3(traindatasize3,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9784:2: 9784 | integer,intent(in) :: nodenummattest1(testdataallsize,maxdepth),nodenummattest2(testdataallsize,maxdepth),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9785:2: 9785 | nodenummattest3(testdataallsize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9786:2: 9786 | double precision,intent(in) :: traindata1(traindatasize1,colnum),traindata2(traindatasize2,colnum),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9787:2: 9787 | traindata3(traindatasize3,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9788:2: 9788 | double precision,intent(in) :: testdata1(testdatasize1,colnum),testdata2(testdatasize2,colnum),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9789:2: 9789 | testdata3(testdatasize3,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9790:2: 9790 | double precision,intent(in) :: testdataall(testdataallsize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9791:2: 9791 | double precision,intent(out) :: r2cvval1sub,r2cvval2sub,r2cvval3sub,r2cvvalthreesub | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9792:2: 9792 | double precision bootpredictsub1(testdatasize1,5),bootpredictsub2(testdatasize2,5),bootpredictsub3(testdatasize3,5) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9793:2: 9793 | double precision, allocatable :: timepred(:,:),timepredcou(:,:),predictvec(:),r2cvks0(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9794:2: 9794 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9795:2: 9795 | double precision ymean,r2cvbunsi,r2cvbunbo,r2cvks1,r2cvks2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9796:2: 9796 | bootpredictsub1(:,1) = dble(cvloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9797:2: 9797 | bootpredictsub1(:,2) = testdata1(:,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9798:2: 9798 | bootpredictsub2(:,1) = dble(cvloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9799:2: 9799 | bootpredictsub2(:,2) = testdata2(:,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9800:2: 9800 | bootpredictsub3(:,1) = dble(cvloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9801:2: 9801 | bootpredictsub3(:,2) = testdata3(:,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9802:2: 9802 | allocate(timepred(((2**maxdepth)-1),levelcount),timepredcou(((2**maxdepth)-1),levelcount),predictvec(testdataallsize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9803:2: 9803 | timepred(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9804:2: 9804 | timepredcou(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9805:2: 9805 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9806:2: 9806 | do j = 1,traindatasize1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9807:2: 9807 | if(sum(nodenummat1(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9808:2: 9808 | goto 3010 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9809:2: 9809 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9810:2: 9810 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9811:2: 9811 | if(nodenummat1(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9812:2: 9812 | timepred(nodenummat1(j,maxdepth),int(traindata1(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9813:2: 9813 | timepred(nodenummat1(j,maxdepth),int(traindata1(j,3))) + traindata1(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9814:2: 9814 | timepredcou(nodenummat1(j,maxdepth),int(traindata1(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9815:2: 9815 | timepredcou(nodenummat1(j,maxdepth),int(traindata1(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9816:2: 9816 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9817:2: 9817 | cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9818:2: 9818 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9819:2: 9819 | if(nodenummat1(j,i) > 0 .and. nodenummat1(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9820:2: 9820 | timepred(nodenummat1(j,i),int(traindata1(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9821:2: 9821 | timepred(nodenummat1(j,i),int(traindata1(j,3))) + traindata1(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9822:2: 9822 | timepredcou(nodenummat1(j,i),int(traindata1(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9823:2: 9823 | timepredcou(nodenummat1(j,i),int(traindata1(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9824:2: 9824 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9825:2: 9825 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9826:2: 9826 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9828:2: 9828 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9829:2: 9829 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9830:2: 9830 | do j = 1,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9831:2: 9831 | timepred(i,j) = timepred(i,j)/timepredcou(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9832:2: 9832 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9833:2: 9833 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9834:2: 9834 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9835:2: 9835 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9836:2: 9836 | do j = 1,testdataallsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9837:2: 9837 | if(sum(nodenummattest1(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9838:2: 9838 | goto 3020 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9839:2: 9839 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9840:2: 9840 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9841:2: 9841 | if(nodenummattest1(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9842:2: 9842 | predictvec(j) = timepred(nodenummattest1(j,maxdepth),int(testdataall(j,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9843:2: 9843 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9844:2: 9844 | cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9845:2: 9845 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9846:2: 9846 | if(nodenummattest1(j,i) > 0 .and. nodenummattest1(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9847:2: 9847 | predictvec(j) = timepred(nodenummattest1(j,i),int(testdataall(j,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9848:2: 9848 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9849:2: 9849 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9850:2: 9850 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9852:2: 9852 | bootpredictsub1(:,3) = predictvec(1:testdatasize1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9853:2: 9853 | bootpredictsub2(:,3) = predictvec((testdatasize1+1):(testdatasize1+testdatasize2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9854:2: 9854 | bootpredictsub3(:,3) = predictvec((testdatasize1+testdatasize2+1):testdataallsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9855:2: 9855 | deallocate(timepred,timepredcou,predictvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9856:2: 9856 | allocate(timepred(((2**maxdepth)-1),levelcount),timepredcou(((2**maxdepth)-1),levelcount),predictvec(testdataallsize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9857:2: 9857 | timepred(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9858:2: 9858 | timepredcou(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9859:2: 9859 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9860:2: 9860 | do j = 1,traindatasize2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9861:2: 9861 | if(sum(nodenummat2(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9862:2: 9862 | goto 3030 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9863:2: 9863 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9864:2: 9864 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9865:2: 9865 | if(nodenummat2(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9866:2: 9866 | timepred(nodenummat2(j,maxdepth),int(traindata2(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9867:2: 9867 | timepred(nodenummat2(j,maxdepth),int(traindata2(j,3))) + traindata2(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9868:2: 9868 | timepredcou(nodenummat2(j,maxdepth),int(traindata2(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9869:2: 9869 | timepredcou(nodenummat2(j,maxdepth),int(traindata2(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9870:2: 9870 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9871:2: 9871 | cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9872:2: 9872 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9873:2: 9873 | if(nodenummat2(j,i) > 0 .and. nodenummat2(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9874:2: 9874 | timepred(nodenummat2(j,i),int(traindata2(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9875:2: 9875 | timepred(nodenummat2(j,i),int(traindata2(j,3))) + traindata2(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9876:2: 9876 | timepredcou(nodenummat2(j,i),int(traindata2(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9877:2: 9877 | timepredcou(nodenummat2(j,i),int(traindata2(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9878:2: 9878 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9879:2: 9879 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9880:2: 9880 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9882:2: 9882 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9883:2: 9883 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9884:2: 9884 | do j = 1,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9885:2: 9885 | timepred(i,j) = timepred(i,j)/timepredcou(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9886:2: 9886 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9887:2: 9887 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9888:2: 9888 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9889:2: 9889 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9890:2: 9890 | do j = 1,testdataallsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9891:2: 9891 | if(sum(nodenummattest2(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9892:2: 9892 | goto 3040 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9893:2: 9893 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9894:2: 9894 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9895:2: 9895 | if(nodenummattest2(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9896:2: 9896 | predictvec(j) = timepred(nodenummattest2(j,maxdepth),int(testdataall(j,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9897:2: 9897 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9898:2: 9898 | cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9899:2: 9899 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9900:2: 9900 | if(nodenummattest2(j,i) > 0 .and. nodenummattest2(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9901:2: 9901 | predictvec(j) = timepred(nodenummattest2(j,i),int(testdataall(j,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9902:2: 9902 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9903:2: 9903 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9904:2: 9904 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9906:2: 9906 | bootpredictsub1(:,4) = predictvec(1:testdatasize1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9907:2: 9907 | bootpredictsub2(:,4) = predictvec((testdatasize1+1):(testdatasize1+testdatasize2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9908:2: 9908 | bootpredictsub3(:,4) = predictvec((testdatasize1+testdatasize2+1):testdataallsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9909:2: 9909 | deallocate(timepred,timepredcou,predictvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9910:2: 9910 | allocate(timepred(((2**maxdepth)-1),levelcount),timepredcou(((2**maxdepth)-1),levelcount),predictvec(testdataallsize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9911:2: 9911 | timepred(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9912:2: 9912 | timepredcou(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9913:2: 9913 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9914:2: 9914 | do j = 1,traindatasize3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9915:2: 9915 | if(sum(nodenummat3(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9916:2: 9916 | goto 3050 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9917:2: 9917 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9918:2: 9918 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9919:2: 9919 | if(nodenummat3(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9920:2: 9920 | timepred(nodenummat3(j,maxdepth),int(traindata3(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9921:2: 9921 | timepred(nodenummat3(j,maxdepth),int(traindata3(j,3))) + traindata3(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9922:2: 9922 | timepredcou(nodenummat3(j,maxdepth),int(traindata3(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9923:2: 9923 | timepredcou(nodenummat3(j,maxdepth),int(traindata3(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9924:2: 9924 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9925:2: 9925 | cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9926:2: 9926 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9927:2: 9927 | if(nodenummat3(j,i) > 0 .and. nodenummat3(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9928:2: 9928 | timepred(nodenummat3(j,i),int(traindata3(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9929:2: 9929 | timepred(nodenummat3(j,i),int(traindata3(j,3))) + traindata3(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9930:2: 9930 | timepredcou(nodenummat3(j,i),int(traindata3(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9931:2: 9931 | timepredcou(nodenummat3(j,i),int(traindata3(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9932:2: 9932 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9933:2: 9933 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9934:2: 9934 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9936:2: 9936 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9937:2: 9937 | if(abs(sum(timepred(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9938:2: 9938 | do j = 1,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9939:2: 9939 | timepred(i,j) = timepred(i,j)/timepredcou(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9940:2: 9940 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9941:2: 9941 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9942:2: 9942 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9943:2: 9943 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9944:2: 9944 | do j = 1,testdataallsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9945:2: 9945 | if(sum(nodenummattest3(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9946:2: 9946 | goto 3060 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9947:2: 9947 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9948:2: 9948 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9949:2: 9949 | if(nodenummattest3(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9950:2: 9950 | predictvec(j) = timepred(nodenummattest3(j,maxdepth),int(testdataall(j,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9951:2: 9951 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9952:2: 9952 | cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9953:2: 9953 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9954:2: 9954 | if(nodenummattest3(j,i) > 0 .and. nodenummattest3(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9955:2: 9955 | predictvec(j) = timepred(nodenummattest3(j,i),int(testdataall(j,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9956:2: 9956 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9957:2: 9957 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9958:2: 9958 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9960:2: 9960 | bootpredictsub1(:,5) = predictvec(1:testdatasize1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9961:2: 9961 | bootpredictsub2(:,5) = predictvec((testdatasize1+1):(testdatasize1+testdatasize2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9962:2: 9962 | bootpredictsub3(:,5) = predictvec((testdatasize1+testdatasize2+1):testdataallsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9963:2: 9963 | r2cvks1 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9964:2: 9964 | r2cvks2 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9965:2: 9965 | ymean = sum(bootpredictsub1(:,2))/testdatasize1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9966:2: 9966 | do i = 1,testdatasize1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9967:2: 9967 | r2cvks1 = r2cvks1 + (bootpredictsub1(i,2)-bootpredictsub1(i,3)) * (bootpredictsub1(i,2)-bootpredictsub1(i,3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9968:2: 9968 | r2cvks2 = r2cvks2 + (bootpredictsub1(i,2)-ymean) * (bootpredictsub1(i,2)-ymean) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9969:2: 9969 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9970:2: 9970 | r2cvbunsi = r2cvks1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9971:2: 9971 | r2cvbunbo = r2cvks2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9972:2: 9972 | r2cvval1sub = 1d0-(r2cvbunsi/r2cvbunbo) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9973:2: 9973 | r2cvks1 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9974:2: 9974 | r2cvks2 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9975:2: 9975 | ymean = sum(bootpredictsub2(:,2))/testdatasize2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9976:2: 9976 | do i = 1,testdatasize2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9977:2: 9977 | r2cvks1 = r2cvks1 + (bootpredictsub2(i,2)-bootpredictsub2(i,4)) * (bootpredictsub2(i,2)-bootpredictsub2(i,4)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9978:2: 9978 | r2cvks2 = r2cvks2 + (bootpredictsub2(i,2)-ymean) * (bootpredictsub2(i,2)-ymean) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9979:2: 9979 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9980:2: 9980 | r2cvbunsi = r2cvks1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9981:2: 9981 | r2cvbunbo = r2cvks2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9982:2: 9982 | r2cvval2sub = 1d0-(r2cvbunsi/r2cvbunbo) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9983:2: 9983 | r2cvks1 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9984:2: 9984 | r2cvks2 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9985:2: 9985 | ymean = sum(bootpredictsub3(:,2))/testdatasize3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9986:2: 9986 | do i = 1,testdatasize3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9987:2: 9987 | r2cvks1 = r2cvks1 + (bootpredictsub3(i,2)-bootpredictsub3(i,5)) * (bootpredictsub3(i,2)-bootpredictsub3(i,5)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9988:2: 9988 | r2cvks2 = r2cvks2 + (bootpredictsub3(i,2)-ymean) * (bootpredictsub3(i,2)-ymean) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9989:2: 9989 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9990:2: 9990 | r2cvbunsi = r2cvks1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9991:2: 9991 | r2cvbunbo = r2cvks2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9992:2: 9992 | r2cvval3sub = 1d0-(r2cvbunsi/r2cvbunbo) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9993:2: 9993 | r2cvks1 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9994:2: 9994 | r2cvks2 = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9995:2: 9995 | ymean = (sum(bootpredictsub1(:,2))+sum(bootpredictsub2(:,2))+sum(bootpredictsub3(:,2)))/testdataallsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9996:2: 9996 | allocate(r2cvks0(testdatasize1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9997:2: 9997 | r2cvks0(:) = (bootpredictsub1(:,3)+bootpredictsub1(:,4)+bootpredictsub1(:,5))/3d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9998:2: 9998 | do i = 1,testdatasize1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:9999:2: 9999 | r2cvks1 = r2cvks1 + (bootpredictsub1(i,2)-r2cvks0(i)) * (bootpredictsub1(i,2)-r2cvks0(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10000:2: 10000 | r2cvks2 = r2cvks2 + (bootpredictsub1(i,2)-ymean) * (bootpredictsub1(i,2)-ymean) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10001:2: 10001 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10002:2: 10002 | deallocate(r2cvks0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10003:2: 10003 | allocate(r2cvks0(testdatasize2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10004:2: 10004 | r2cvks0(:) = (bootpredictsub2(:,3)+bootpredictsub2(:,4)+bootpredictsub2(:,5))/3d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10005:2: 10005 | do i = 1,testdatasize2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10006:2: 10006 | r2cvks1 = r2cvks1 + (bootpredictsub2(i,2)-r2cvks0(i)) * (bootpredictsub2(i,2)-r2cvks0(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10007:2: 10007 | r2cvks2 = r2cvks2 + (bootpredictsub2(i,2)-ymean) * (bootpredictsub2(i,2)-ymean) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10008:2: 10008 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10009:2: 10009 | deallocate(r2cvks0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10010:2: 10010 | allocate(r2cvks0(testdatasize3)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10011:2: 10011 | r2cvks0(:) = (bootpredictsub3(:,3)+bootpredictsub3(:,4)+bootpredictsub3(:,5))/3d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10012:2: 10012 | do i = 1,testdatasize3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10013:2: 10013 | r2cvks1 = r2cvks1 + (bootpredictsub3(i,2)-r2cvks0(i)) * (bootpredictsub3(i,2)-r2cvks0(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10014:2: 10014 | r2cvks2 = r2cvks2 + (bootpredictsub3(i,2)-ymean) * (bootpredictsub3(i,2)-ymean) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10015:2: 10015 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10016:2: 10016 | deallocate(r2cvks0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10017:2: 10017 | r2cvbunsi = r2cvks1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10018:2: 10018 | r2cvbunbo = r2cvks2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10019:2: 10019 | r2cvvalthreesub = 1d0-(r2cvbunsi/r2cvbunbo) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10020:2: 10020 | deallocate(timepred,timepredcou,predictvec) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10023:2: 10023 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10024:2: 10024 | integer,intent(in) :: msize,maxdepth,prunind,cv | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10025:2: 10025 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10026:2: 10026 | double precision,intent(in) :: bestgammaval,allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10027:2: 10027 | integer,intent(out) :: prunenodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10028:2: 10028 | double precision minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10029:2: 10029 | double precision gammavec((2**(maxdepth-1))-1),allfvalnew((2**maxdepth)-1),allfvalnewsub((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10030:2: 10030 | integer nottnodeval,allnodenum,minghnum,prunloop | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10031:2: 10031 | integer ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10032:2: 10032 | integer, allocatable :: nodenummatnew(:,:),nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10033:2: 10033 | if(bestgammaval <= 0d0 .or. prunind==1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10034:2: 10034 | prunenodenummat(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10035:2: 10035 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10036:2: 10036 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10037:2: 10037 | gammavec(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10038:2: 10038 | call threetreesgterminalnodecount(nodenummat,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10039:2: 10039 | call threetreesgweaknode(maxdepth,nottnodeval,ncountval,allfval,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10040:2: 10040 | gammavec(1) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10041:2: 10041 | if(gammavec(1) > bestgammaval .and. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10042:2: 10042 | prunenodenummat(:,:) = nodenummat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10043:2: 10043 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10044:2: 10044 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10045:2: 10045 | allocate(nodenummatnew(msize,maxdepth),nodenummatnewsub(msize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10046:2: 10046 | call threetreesgpruntreemat(nodenummat,maxdepth,msize,minghnum,allfval,allfvalnew,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10047:2: 10047 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10048:2: 10048 | deallocate(nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10049:2: 10049 | if(bestgammaval == minghval .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10050:2: 10050 | prunenodenummat(:,:) = nodenummatnew(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10051:2: 10051 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10052:2: 10052 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10053:2: 10053 | do prunloop = 2,((2**(maxdepth-1))-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10054:2: 10054 | allfvalnewsub(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10055:2: 10055 | call threetreesgterminalnodecount(nodenummatnew,msize,maxdepth,nottnodeval,ncountval,nottnodevec,allnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10056:2: 10056 | if(allnodenum == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10057:2: 10057 | prunenodenummat(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10058:2: 10058 | prunenodenummat(:,1) = 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10059:2: 10059 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10060:2: 10060 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10061:2: 10061 | call threetreesgweaknode(maxdepth,nottnodeval,ncountval,allfvalnew,nottnodevec,minghnum,minghval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10062:2: 10062 | gammavec(prunloop) = minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10063:2: 10063 | if(gammavec(prunloop-1) < bestgammaval .and. gammavec(prunloop) > bestgammaval .and. cv == -1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10064:2: 10064 | prunenodenummat(:,:) = nodenummatnew(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10065:2: 10065 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10066:2: 10066 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10067:2: 10067 | allocate(nodenummatnewsub(msize,maxdepth)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10068:2: 10068 | call threetreesgpruntreemat(nodenummatnew,maxdepth,msize,minghnum,allfvalnew,allfvalnewsub,nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10069:2: 10069 | nodenummatnew(:,:) = nodenummatnewsub(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10070:2: 10070 | allfvalnew(:) = allfvalnewsub(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10071:2: 10071 | deallocate(nodenummatnewsub) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10072:2: 10072 | if(bestgammaval == minghval .and. cv == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10073:2: 10073 | prunenodenummat(:,:) = nodenummatnew(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10074:2: 10074 | goto 5000 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10075:2: 10075 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10076:2: 10076 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10080:2: 10080 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10081:2: 10081 | integer, intent(in) :: msize,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10082:2: 10082 | integer,intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10083:2: 10083 | integer, intent(out) :: nottnodeval, ncountval((2**maxdepth)-1), nottnodevec((2**maxdepth)-1), allnodenum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10084:2: 10084 | integer tncountval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10085:2: 10085 | integer i,j,tnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10086:2: 10086 | tncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10087:2: 10087 | ncountval(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10088:2: 10088 | nottnodevec(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10089:2: 10089 | allnodenum = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10090:2: 10090 | do i =1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10091:2: 10091 | do j = 1,maxdepth-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10092:2: 10092 | if(nodenummat(i,j+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10093:2: 10093 | tncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10094:2: 10094 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10095:2: 10095 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10096:2: 10096 | ncountval(nodenummat(i,j)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10097:2: 10097 | nottnodevec(nodenummat(i,j)) = nodenummat(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10098:2: 10098 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10099:2: 10099 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10100:2: 10100 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10101:2: 10101 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10102:2: 10102 | if(nodenummat(i,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10103:2: 10103 | tncountval(nodenummat(i,maxdepth)) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10104:2: 10104 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10105:2: 10105 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10106:2: 10106 | tnodeval = sum(tncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10107:2: 10107 | nottnodeval = sum(ncountval) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10108:2: 10108 | allnodenum = tnodeval+nottnodeval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10111:2: 10111 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10112:2: 10112 | integer, intent(in) :: maxdepth,nottnodeval, ncountval((2**maxdepth)-1),nottnodevec((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10113:2: 10113 | double precision allfval((2**maxdepth)-1), testsum, testsumall((2**maxdepth)-1), ghval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10114:2: 10114 | integer rootnodenum, prunloop,i,j, ntcount((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10115:2: 10115 | integer, intent(out) :: minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10116:2: 10116 | double precision, intent(out) :: minghval | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10117:2: 10117 | ghval(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10118:2: 10118 | testsumall(:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10119:2: 10119 | ntcount(:) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10120:2: 10120 | do prunloop = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10121:2: 10121 | if(nottnodevec(prunloop) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10122:2: 10122 | rootnodenum = nottnodevec(prunloop) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10123:2: 10123 | ntcount(rootnodenum) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10124:2: 10124 | testsum = allfval(rootnodenum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10125:2: 10125 | do i = 1,(maxdepth-2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10126:2: 10126 | if(((2**i)*rootnodenum) > ((2**maxdepth)-1)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10127:2: 10127 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10128:2: 10128 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10129:2: 10129 | do j = 1,(2**i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10130:2: 10130 | testsum = testsum + allfval(((2**i)*rootnodenum)+j-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10131:2: 10131 | if(allfval(((2**i)*rootnodenum)+j-1) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10132:2: 10132 | ntcount(rootnodenum) = ntcount(rootnodenum) + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10133:2: 10133 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10134:2: 10134 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10135:2: 10135 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10136:2: 10136 | testsumall(rootnodenum) = testsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10137:2: 10137 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10138:2: 10138 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10139:2: 10139 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10140:2: 10140 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10141:2: 10141 | if(ntcount(i) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10142:2: 10142 | ghval(i) = testsumall(i) / dble(ntcount(i)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10143:2: 10143 | if(j == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10144:2: 10144 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10145:2: 10145 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10146:2: 10146 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10147:2: 10147 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10148:2: 10148 | if(minghval > ghval(i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10149:2: 10149 | minghval = ghval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10150:2: 10150 | minghnum = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10151:2: 10151 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10152:2: 10152 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10153:2: 10153 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10156:2: 10156 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10157:2: 10157 | integer, intent(in) :: maxdepth,msize,minghnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10158:2: 10158 | integer, intent(in) :: nodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10159:2: 10159 | double precision, intent(in) :: allfval((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10160:2: 10160 | integer, intent(out) :: nodenummatnew(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10161:2: 10161 | double precision, intent(out) :: allfvalnew((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10162:2: 10162 | integer i,j,indcol | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10163:2: 10163 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10164:2: 10164 | allfvalnew(i) = allfval(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10165:2: 10165 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10166:2: 10166 | allfvalnew(minghnum) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10167:2: 10167 | do i = 1,(maxdepth-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10168:2: 10168 | if(minghnum < (2**i)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10169:2: 10169 | indcol = i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10170:2: 10170 | exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10171:2: 10171 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10172:2: 10172 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10173:2: 10173 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10174:2: 10174 | nodenummatnew(i,:) = nodenummat(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10175:2: 10175 | if(nodenummatnew(i,indcol) == minghnum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10176:2: 10176 | do j = (indcol+1),maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10177:2: 10177 | if(nodenummatnew(i,j) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10178:2: 10178 | allfvalnew(nodenummatnew(i,j)) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10179:2: 10179 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10180:2: 10180 | nodenummatnew(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10181:2: 10181 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10182:2: 10182 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10183:2: 10183 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10186:2: 10186 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10187:2: 10187 | integer, intent(in) :: msize,levelcount,maxdepth,colnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10188:2: 10188 | integer, intent(in) :: prunenodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10189:2: 10189 | double precision, intent(in) :: XYDATA(Msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10190:2: 10190 | integer, intent(out) :: datatnnodenum(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10191:2: 10191 | double precision, intent(out) :: predvec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10192:2: 10192 | double precision, allocatable :: timepredsum(:,:),timepredcou(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10193:2: 10193 | double precision tnodepredmat((2**maxdepth)-1,levelcount) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10194:2: 10194 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10195:2: 10195 | allocate(timepredsum(((2**maxdepth)-1),levelcount),timepredcou(((2**maxdepth)-1),levelcount)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10196:2: 10196 | timepredsum(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10197:2: 10197 | timepredcou(:,:) = 0d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10198:2: 10198 | do i = 1,maxdepth | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10199:2: 10199 | do j = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10200:2: 10200 | if(sum(prunenodenummat(:,i)) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10201:2: 10201 | goto 3010 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10202:2: 10202 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10203:2: 10203 | if(i == maxdepth) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10204:2: 10204 | if(prunenodenummat(j,maxdepth) > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10205:2: 10205 | timepredsum(prunenodenummat(j,maxdepth),int(XYDATA(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10206:2: 10206 | timepredsum(prunenodenummat(j,maxdepth),int(XYDATA(j,3))) + XYDATA(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10207:2: 10207 | timepredcou(prunenodenummat(j,maxdepth),int(XYDATA(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10208:2: 10208 | timepredcou(prunenodenummat(j,maxdepth),int(XYDATA(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10209:2: 10209 | datatnnodenum(j) = prunenodenummat(j,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10210:2: 10210 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10211:2: 10211 | cycle | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10212:2: 10212 | elseif(prunenodenummat(j,i) > 0 .and. prunenodenummat(j,i+1) == 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10213:2: 10213 | timepredsum(prunenodenummat(j,i),int(XYDATA(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10214:2: 10214 | timepredsum(prunenodenummat(j,i),int(XYDATA(j,3))) + XYDATA(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10215:2: 10215 | timepredcou(prunenodenummat(j,i),int(XYDATA(j,3))) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10216:2: 10216 | timepredcou(prunenodenummat(j,i),int(XYDATA(j,3))) + 1d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10217:2: 10217 | datatnnodenum(j) = prunenodenummat(j,i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10218:2: 10218 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10219:2: 10219 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10220:2: 10220 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10222:2: 10222 | do i = 1,((2**maxdepth)-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10223:2: 10223 | if(abs(sum(timepredsum(i,:))) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10224:2: 10224 | do j = 1,levelcount | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10225:2: 10225 | tnodepredmat(i,j) = timepredsum(i,j)/timepredcou(i,j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10226:2: 10226 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10227:2: 10227 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10228:2: 10228 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10229:2: 10229 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10230:2: 10230 | predvec(i) = tnodepredmat(datatnnodenum(i),int(xydata(i,3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10231:2: 10231 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10234:2: 10234 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10235:2: 10235 | integer, intent(in) :: msize,colnum,nodenum,hierarchy,nodesize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10236:2: 10236 | double precision, intent(in) :: xydata(msize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10237:2: 10237 | integer, intent(in) :: nodenummat(msize,11) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10238:2: 10238 | double precision, intent(out) :: xynodedata(nodesize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10239:2: 10239 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10240:2: 10240 | j = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10241:2: 10241 | do i = 1,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10242:2: 10242 | if(nodenummat(i,hierarchy) == nodenum) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10243:2: 10243 | xynodedata(j,:) = xydata(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10244:2: 10244 | j = j + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10245:2: 10245 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10246:2: 10246 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10250:2: 10250 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10251:2: 10251 | integer, intent(in) :: nodedatasize,colnum,maxdepth,ind1,ind2,splitvecsize,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10252:2: 10252 | integer, intent(in) :: datatype(colnum-3) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10253:2: 10253 | double precision, intent(in) :: nodedatanum(nodedatasize,colnum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10254:2: 10254 | integer, intent(in) :: prunnodenummat(msize,maxdepth) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10255:2: 10255 | integer, intent(out) :: splitvector(splitvecsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10256:2: 10256 | double precision, intent(out) :: splitnumber(splitvecsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10257:2: 10257 | integer i,j,hierarchy,nodesize,facsum,count_0,count_1,idx,splitnum,countvec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10258:2: 10258 | double precision datasample(nodedatasize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10259:2: 10259 | integer, allocatable :: splitindmat(:,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10260:2: 10260 | datasample = nodedatanum(:,ind1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10261:2: 10261 | if(datatype(ind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10262:2: 10262 | splitnum = splitvecsize - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10263:2: 10263 | elseif(datatype(ind1-3) == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10264:2: 10264 | splitnum = (2 ** (splitvecsize-1)) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10265:2: 10265 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10266:2: 10266 | call threetreesspdataval(nodedatanum(:,ind1),nodedatasize,splitnumber,splitvecsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10267:2: 10267 | allocate(splitindmat(splitnum,splitvecsize)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10268:2: 10268 | if(datatype(ind1-3) == 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10269:2: 10269 | do i = 1,splitnum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10270:2: 10270 | do j = 1,splitvecsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10271:2: 10271 | if(i >= j) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10272:2: 10272 | splitindmat(i,j) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10273:2: 10273 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10274:2: 10274 | splitindmat(i,j) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10275:2: 10275 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10276:2: 10276 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10277:2: 10277 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10278:2: 10278 | elseif(datatype(ind1-3) == 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10279:2: 10279 | idx = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10280:2: 10280 | do i = 0, 2**(splitvecsize-1) - 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10281:2: 10281 | count_0 = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10282:2: 10282 | count_1 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10283:2: 10283 | splitindmat(idx, 1) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10284:2: 10284 | do j = 0, splitvecsize - 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10285:2: 10285 | if (iand(i, 2**j) /= 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10286:2: 10286 | splitindmat(idx, j+2) = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10287:2: 10287 | count_1 = count_1 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10288:2: 10288 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10289:2: 10289 | splitindmat(idx, j+2) = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10290:2: 10290 | count_0 = count_0 + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10291:2: 10291 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10292:2: 10292 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10293:2: 10293 | if (count_0 > 0 .and. count_1 > 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10294:2: 10294 | idx = idx + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10295:2: 10295 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10296:2: 10296 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10297:2: 10297 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10298:2: 10298 | splitvector = splitindmat(ind2,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10301:2: 10301 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10302:2: 10302 | integer,intent(in) :: msize, facsize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10303:2: 10303 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10304:2: 10304 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10305:2: 10305 | double precision, intent(out) :: facval(facsize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10306:2: 10306 | integer count, i, j, k | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10307:2: 10307 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10308:2: 10308 | call threetreesspdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10309:2: 10309 | facval(1) = datavecsub(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10310:2: 10310 | k = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10311:2: 10311 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10312:2: 10312 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10313:2: 10313 | k = k + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10314:2: 10314 | facval(k) = datavecsub(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10315:2: 10315 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10316:2: 10316 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10319:2: 10319 | IMPLICIT NONE | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10320:2: 10320 | integer,intent(in) :: msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10321:2: 10321 | double precision,intent(in) :: datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10322:2: 10322 | double precision datavecsub(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10323:2: 10323 | integer, intent(out) :: facsum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10324:2: 10324 | integer count, j, i | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10325:2: 10325 | datavecsub(:) = datavec(:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10326:2: 10326 | call threetreesspdatasort(datavecsub,1,msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10327:2: 10327 | count = 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10328:2: 10328 | do j = 2,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10329:2: 10329 | if(abs(datavecsub(j) - datavecsub(j-1)) > 0d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10330:2: 10330 | count = count + 1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10331:2: 10331 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10332:2: 10332 | enddo | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10333:2: 10333 | facsum = count | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10336:2: 10336 | implicit none | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10337:2: 10337 | integer,intent(in)::start,msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10338:2: 10338 | double precision,intent(inout)::datavec(msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10339:2: 10339 | double precision x,t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10340:2: 10340 | integer i,j | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10341:2: 10341 | x = datavec((start+msize)/2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10342:2: 10342 | i = start | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10343:2: 10343 | j = msize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10344:2: 10344 | do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10345:2: 10345 | do while (datavec(i) < x) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10346:2: 10346 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10347:2: 10347 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10348:2: 10348 | do while (x < datavec(j)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10349:2: 10349 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10350:2: 10350 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10351:2: 10351 | if (i >= j) exit | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10352:2: 10352 | t = datavec(i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10353:2: 10353 | datavec(i) = datavec(j) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10354:2: 10354 | datavec(j) = t | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10355:2: 10355 | i=i+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10356:2: 10356 | j=j-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10357:2: 10357 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10358:2: 10358 | if (start < i-1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10359:2: 10359 | call threetreesspdatasort(datavec, start, i-1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10360:2: 10360 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10361:2: 10361 | if (j+1 < msize) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10362:2: 10362 | call threetreesspdatasort(datavec, j+1, msize) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10363:2: 10363 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] longitree_program.f90:10364:2: 10364 | return | 1 Warning: Nonconforming tab character at (1) [-Wtabs] gcc -I"D:/RCompile/recent/R-4.6.1/include" -DNDEBUG -I"d:/rtools45/x86_64-w64-mingw32.static.posix/include" -pedantic -Wstrict-prototypes -O2 -Wall -std=gnu2x -mfpmath=sse -msse2 -mstackrealign -c rng.c -o rng.o gcc -shared -s -static-libgcc -o longitree.dll tmp.def init.o longitree_program.o rng.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-4.6.1/bin/x64 -lR make[1]: Leaving directory '/d/temp/2026_09_09_01_50_00_18435/RtmpuSliNi/R.INSTALL1605837936e86/longitree/src' make[1]: Entering directory '/d/temp/2026_09_09_01_50_00_18435/RtmpuSliNi/R.INSTALL1605837936e86/longitree/src' make[1]: Leaving directory '/d/temp/2026_09_09_01_50_00_18435/RtmpuSliNi/R.INSTALL1605837936e86/longitree/src' installing to d:/Rcompile/CRANpkg/lib/4.6/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 * MD5 sums packaged installation of 'longitree' as longitree_1.0.2.zip * DONE (longitree)