* installing *source* package 'SmoothHazardoptim9' ... ** using staged installation ** libs using C compiler: 'gcc.exe (GCC) 13.2.0' using Fortran compiler: 'GNU Fortran (GCC) 13.2.0' gfortran -pedantic -O2 -mfpmath=sse -msse2 -mstackrealign -c commun.f90 -o commun.o commun.f90:21:2: 21 | ve02nofix,ve12nofix,ve01square,ve02square,ve12square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] commun.f90:22:2: 22 | double precision,dimension(:),allocatable,save::tronc01, tronc02, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] commun.f90:23:2: 23 | tronc01square, tronc02square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] commun.f90:39:2: 39 | integer,dimension(:),allocatable,save::fix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] commun.f90:43:2: 43 | integer::gausspoint | 1 Warning: Nonconforming tab character at (1) [-Wtabs] gfortran -pedantic -O2 -mfpmath=sse -msse2 -mstackrealign -c idmlikelihood.f90 -o idmlikelihood.o idmlikelihood.f90:15:2: 15 | use commun | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:20:2: 20 | double precision, intent(inout)::likelihood_res | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:22:2: 22 | nz010,nz020,nz120,troncature0,gausspoint0,dimnva01,dimnva02,dimnva12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:24:2: 24 | double precision,dimension(np0)::b0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:26:2: 26 | double precision,dimension(npar0-np0)::bfix0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:27:2: 27 | integer,dimension(npar0)::fix0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:28:2: 28 | double precision,dimension(-2:(nz010+3))::zi010 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:29:2: 29 | double precision,dimension(-2:(nz020+3))::zi020 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:30:2: 30 | double precision,dimension(-2:(nz120+3))::zi120 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:31:2: 31 | double precision,dimension(-2:(nz010-1))::the01 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:32:2: 32 | double precision,dimension(-2:(nz120-1))::the12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:33:2: 33 | double precision,dimension(-2:(nz020-1))::the02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:35:2: 35 | double precision,dimension(no0,dimnva02)::ve020 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:36:2: 36 | double precision,dimension(no0,dimnva12)::ve120 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:40:2: 40 | double precision,dimension(no0)::t00,t10,t20,t30 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:41:2: 41 | integer,dimension(no0)::c0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:43:2: 43 | allocate(b(np0),bfix(npar0-np0),fix(npar0)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:44:2: 44 | b=b0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:45:2: 45 | bfix=bfix0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:46:2: 46 | fix=fix0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:47:2: 47 | allocate(zi01(-2:(nz01+3)),zi12(-2:(nz12+3)),zi02(-2:(nz02+3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:48:2: 48 | zi01=zi010 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:49:2: 49 | zi02=zi020 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:50:2: 50 | zi12=zi120 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:53:2: 53 | nz01=nz010 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:54:2: 54 | nz02=nz020 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:55:2: 55 | nz12=nz120 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:56:2: 56 | troncature=troncature0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:57:2: 57 | gausspoint=gausspoint0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:61:2: 61 | if(nva01.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:62:2: 62 | allocate(ve01(no0,nva01)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:63:2: 63 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:64:2: 64 | allocate(ve01(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:65:2: 65 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:67:2: 67 | if(nva02.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:68:2: 68 | allocate(ve02(no0,nva02)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:69:2: 69 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:70:2: 70 | allocate(ve02(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:71:2: 71 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:73:2: 73 | if(nva12.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:74:2: 74 | allocate(ve12(no0,nva12)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:75:2: 75 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:76:2: 76 | allocate(ve12(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:77:2: 77 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:80:2: 80 | ve01=ve010 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:81:2: 81 | ve02=ve020 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:82:2: 82 | ve12=ve120 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:84:2: 84 | allocate(t0(no0),t1(no0),t2(no0),t3(no0),c(no0)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:85:2: 85 | c=c0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:86:2: 86 | t0=t00 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:87:2: 87 | t1=t10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:88:2: 88 | t2=t20 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:89:2: 89 | t3=t30 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:135:2: 135 | if(gausspoint.eq.10)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:192:26: 192 | call qgaussPL(t1(i),t2(i),the01,the12,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:193:26: 193 | the02,res2,vet01,vet12,vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:196:2: 196 | res1=dlog(res2*(su12**vet12)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:211:26: 211 | res2,vet01,vet12,vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:226:28: 226 | call qgaussPL(t1(i),t2(i),the01,the12,the02,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:239:26: 239 | call qgaussPL(t1(i),t3(i),the01,the12,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:240:26: 240 | the02,res2,vet01,vet12,vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:242:2: 242 | ri02*vet02*(su02**vet02)*(su01**vet01)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:316:26: 316 | call qgaussPL15(t1(i),t2(i),the01,the12,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:317:26: 317 | the02,res2,vet01,vet12,vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:320:2: 320 | res1=dlog(res2*(su12**vet12)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:335:26: 335 | res2,vet01,vet12,vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:350:28: 350 | call qgaussPL15(t1(i),t2(i),the01,the12,the02,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:363:26: 363 | call qgaussPL15(t1(i),t3(i),the01,the12,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:364:26: 364 | the02,res2,vet01,vet12,vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:366:2: 366 | ri02*vet02*(su02**vet02)*(su01**vet01)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:442:26: 442 | call qgaussPL21(t1(i),t2(i),the01,the12,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:443:26: 443 | the02,res2,vet01,vet12,vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:446:2: 446 | res1=dlog(res2*(su12**vet12)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:461:26: 461 | res2,vet01,vet12,vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:476:28: 476 | call qgaussPL21(t1(i),t2(i),the01,the12,the02,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:489:26: 489 | call qgaussPL21(t1(i),t3(i),the01,the12,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:490:26: 490 | the02,res2,vet01,vet12,vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:492:2: 492 | ri02*vet02*(su02**vet02)*(su01**vet01)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:568:26: 568 | call qgaussPL31(t1(i),t2(i),the01,the12,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:569:26: 569 | the02,res2,vet01,vet12,vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:572:2: 572 | res1=dlog(res2*(su12**vet12)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:587:26: 587 | res2,vet01,vet12,vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:602:28: 602 | call qgaussPL31(t1(i),t2(i),the01,the12,the02,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:615:26: 615 | call qgaussPL31(t1(i),t3(i),the01,the12,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:616:26: 616 | the02,res2,vet01,vet12,vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:618:2: 618 | ri02*vet02*(su02**vet02)*(su01**vet01)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:694:26: 694 | call qgaussPL41(t1(i),t2(i),the01,the12,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:695:26: 695 | the02,res2,vet01,vet12,vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:698:2: 698 | res1=dlog(res2*(su12**vet12)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:713:26: 713 | res2,vet01,vet12,vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:728:28: 728 | call qgaussPL41(t1(i),t2(i),the01,the12,the02,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:741:26: 741 | call qgaussPL41(t1(i),t3(i),the01,the12,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:742:26: 742 | the02,res2,vet01,vet12,vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:744:2: 744 | ri02*vet02*(su02**vet02)*(su01**vet01)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:820:26: 820 | call qgaussPL51(t1(i),t2(i),the01,the12,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:821:26: 821 | the02,res2,vet01,vet12,vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:824:2: 824 | res1=dlog(res2*(su12**vet12)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:839:26: 839 | res2,vet01,vet12,vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:854:28: 854 | call qgaussPL51(t1(i),t2(i),the01,the12,the02,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:867:26: 867 | call qgaussPL51(t1(i),t3(i),the01,the12,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:868:26: 868 | the02,res2,vet01,vet12,vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:870:2: 870 | ri02*vet02*(su02**vet02)*(su01**vet01)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:945:26: 945 | call qgaussPL61(t1(i),t2(i),the01,the12,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:946:26: 946 | the02,res2,vet01,vet12,vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:949:2: 949 | res1=dlog(res2*(su12**vet12)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:964:26: 964 | res2,vet01,vet12,vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:979:28: 979 | call qgaussPL61(t1(i),t2(i),the01,the12,the02,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:992:26: 992 | call qgaussPL61(t1(i),t3(i),the01,the12,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:993:26: 993 | the02,res2,vet01,vet12,vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:995:2: 995 | ri02*vet02*(su02**vet02)*(su01**vet01)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1025:2: 1025 | deallocate(b,bfix,fix,zi01,zi02,zi12,ve01,ve02,ve12,t0,t1,t2,t3,c) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1041:2: 1041 | use commun | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1046:2: 1046 | double precision, intent(inout)::likelihood_res | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1048:2: 1048 | troncature0,dimnva01,dimnva02,dimnva12,gausspoint0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1050:2: 1050 | double precision,dimension(np0)::b0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1052:2: 1052 | double precision,dimension(npar0-np0)::bfix0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1053:2: 1053 | integer,dimension(npar0)::fix0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1054:2: 1054 | double precision,dimension(2)::the01 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1055:2: 1055 | double precision,dimension(2)::the12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1056:2: 1056 | double precision,dimension(2)::the02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1058:2: 1058 | double precision,dimension(no0,dimnva02)::ve020 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1059:2: 1059 | double precision,dimension(no0,dimnva12)::ve120 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1063:2: 1063 | double precision,dimension(no0)::t00,t10,t20,t30 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1064:2: 1064 | integer,dimension(no0)::c0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1066:2: 1066 | allocate(b(np0),bfix(npar0-np0),fix(npar0)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1067:2: 1067 | b=b0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1068:2: 1068 | bfix=bfix0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1069:2: 1069 | fix=fix0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1071:2: 1071 | troncature=troncature0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1074:2: 1074 | if(nva01.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1075:2: 1075 | allocate(ve01(no0,nva01)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1076:2: 1076 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1077:2: 1077 | allocate(ve01(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1078:2: 1078 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1080:2: 1080 | if(nva02.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1081:2: 1081 | allocate(ve02(no0,nva02)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1082:2: 1082 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1083:2: 1083 | allocate(ve02(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1084:2: 1084 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1086:2: 1086 | if(nva12.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1087:2: 1087 | allocate(ve12(no0,nva12)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1088:2: 1088 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1089:2: 1089 | allocate(ve12(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1090:2: 1090 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1093:2: 1093 | ve01=ve010 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1094:2: 1094 | ve02=ve020 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1095:2: 1095 | ve12=ve120 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1097:2: 1097 | allocate(t0(no0),t1(no0),t2(no0),t3(no0),c(no0)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1098:2: 1098 | c=c0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1099:2: 1099 | t0=t00 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1100:2: 1100 | t1=t10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1101:2: 1101 | t2=t20 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1102:2: 1102 | t3=t30 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1199:2: 1199 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1204:2: 1204 | call fonct(t3(i),the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1211:2: 1211 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1220:2: 1220 | call fonct(t3(i),the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1226:2: 1226 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1235:2: 1235 | call fonct(t3(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1246:2: 1246 | call fonct(t3(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1321:2: 1321 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1326:2: 1326 | call fonct(t3(i),the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1333:2: 1333 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1342:2: 1342 | call fonct(t3(i),the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1348:2: 1348 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1357:2: 1357 | call fonct(t3(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1368:2: 1368 | call fonct(t3(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1444:2: 1444 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1449:2: 1449 | call fonct(t3(i),the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1456:2: 1456 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1465:2: 1465 | call fonct(t3(i),the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1471:2: 1471 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1480:2: 1480 | call fonct(t3(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1491:2: 1491 | call fonct(t3(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1567:2: 1567 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1572:2: 1572 | call fonct(t3(i),the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1579:2: 1579 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1588:2: 1588 | call fonct(t3(i),the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1594:2: 1594 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1603:2: 1603 | call fonct(t3(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1614:2: 1614 | call fonct(t3(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1690:2: 1690 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1695:2: 1695 | call fonct(t3(i),the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1702:2: 1702 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1711:2: 1711 | call fonct(t3(i),the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1717:2: 1717 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1726:2: 1726 | call fonct(t3(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1737:2: 1737 | call fonct(t3(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1813:2: 1813 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1818:2: 1818 | call fonct(t3(i),the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1825:2: 1825 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1834:2: 1834 | call fonct(t3(i),the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1840:2: 1840 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1849:2: 1849 | call fonct(t3(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1860:2: 1860 | call fonct(t3(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1935:2: 1935 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1940:2: 1940 | call fonct(t3(i),the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1947:2: 1947 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1956:2: 1956 | call fonct(t3(i),the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1962:2: 1962 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1971:2: 1971 | call fonct(t3(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:1982:2: 1982 | call fonct(t3(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2020:2: 2020 | deallocate(b,bfix,fix,ve01,ve02,ve12,t0,t1,t2,t3,c) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2172:4: 2172 | use commun,only:zi01,zi12,zi02,nz01,nz12,nz02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2221:2: 2221 | double precision,dimension(4)::wg | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2224:2: 2224 | dimension fv1(7),fv2(7) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2226:5: 2226 | D1MACH(1)=2.23D-308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2227:6: 2227 | D1MACH(2)=1.79D+308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2228:6: 2228 | D1MACH(3)=1.11D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2229:6: 2229 | D1MACH(4)=2.22D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2230:6: 2230 | D1MACH(5)=0.301029995663981195D0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2232:6: 2232 | epmach = d1mach(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2233:6: 2233 | uflow = d1mach(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2235:2: 2235 | wg(1)=0.129484966168869693270611432679082d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2236:5: 2236 | wg(2)=0.279705391489276667901467771423780d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2237:6: 2237 | wg(3)=0.381830050505118944950369775488975d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2238:6: 2238 | wg(4)=0.417959183673469387755102040816327d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2240:6: 2240 | xgk(1)=0.991455371120812639206854697526329d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2241:6: 2241 | xgk(2)=0.949107912342758524526189684047851d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2242:6: 2242 | xgk(3)=0.864864423359769072789712788640926d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2243:6: 2243 | xgk(4)=0.741531185599394439863864773280788d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2244:6: 2244 | xgk(5)=0.586087235467691130294144838258730d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2245:6: 2245 | xgk(6)=0.405845151377397166906606412076961d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2246:6: 2246 | xgk(7)=0.207784955007898467600689403773245d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2247:6: 2247 | xgk(8)=0.000000000000000000000000000000000d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2249:6: 2249 | wgk(1)=0.022935322010529224963732008058970d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2250:6: 2250 | wgk(2)=0.063092092629978553290700663189204d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2251:6: 2251 | wgk(3)=0.104790010322250183839876322541518d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2252:6: 2252 | wgk(4)=0.140653259715525918745189590510238d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2253:6: 2253 | wgk(5)=0.169004726639267902826583426598550d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2254:6: 2254 | wgk(6)=0.190350578064785409913256402421014d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2255:6: 2255 | wgk(7)=0.204432940075298892414161999234649d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2256:6: 2256 | wgk(8)=0.209482141084727828012999174891714d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2266:6: 2266 | resg = fc*wg(4) ! init res Gauss ! fc * 4e poids Gauss | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2274:17: 2274 | dx=xr*xgk(jtw) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2275:17: 2275 | xx = xm+dx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2276:17: 2276 | call fonct(xx,the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2277:17: 2277 | call fonct(xx,the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2278:17: 2278 | call fonct(xx,the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2279:17: 2279 | f1 = (su01**v01)*(su02**v02)*ri01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2280:17: 2280 | xx = xm-dx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2281:17: 2281 | call fonct(xx,the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2282:17: 2282 | call fonct(xx,the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2283:17: 2283 | call fonct(xx,the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2284:17: 2284 | f2 = (su01**v01)*(su02**v02)*ri01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2285:17: 2285 | fv1(jtw) = f1 ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2286:17: 2286 | fv2(jtw) = f2 ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2287:2: 2287 | resg = resg+wg(j)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2288:17: 2288 | resk = resk + wgk(jtw)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2289:17: 2289 | resabs = resabs + wgk(jtw)*(dabs(f1)+dabs(f2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2291:2: 2291 | do j=1,4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2292:2: 2292 | jtwm1 = j*2-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2306:2: 2306 | resk = resk + wgk(jtwm1)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2311:2: 2311 | reskh = resk*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2314:10: 2314 | resasc = resasc+wgk(j)*(dabs(fv1(j)-reskh)+dabs(fv2(j)-reskh)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2315:6: 2315 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2317:6: 2317 | res = resk*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2318:2: 2318 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2329:2: 2329 | use commun,only:zi01,zi12,zi02,nz01,nz12,nz02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2340:2: 2340 | double precision,dimension(4)::wg | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2343:2: 2343 | dimension fv1(7),fv2(7) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2345:5: 2345 | D1MACH(1)=2.23D-308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2346:6: 2346 | D1MACH(2)=1.79D+308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2347:6: 2347 | D1MACH(3)=1.11D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2348:6: 2348 | D1MACH(4)=2.22D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2349:6: 2349 | D1MACH(5)=0.301029995663981195D0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2351:6: 2351 | epmach = d1mach(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2352:6: 2352 | uflow = d1mach(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2354:2: 2354 | wg(1)=0.129484966168869693270611432679082d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2355:5: 2355 | wg(2)=0.279705391489276667901467771423780d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2356:6: 2356 | wg(3)=0.381830050505118944950369775488975d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2357:6: 2357 | wg(4)=0.417959183673469387755102040816327d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2359:6: 2359 | xgk(1)=0.991455371120812639206854697526329d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2360:6: 2360 | xgk(2)=0.949107912342758524526189684047851d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2361:6: 2361 | xgk(3)=0.864864423359769072789712788640926d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2362:6: 2362 | xgk(4)=0.741531185599394439863864773280788d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2363:6: 2363 | xgk(5)=0.586087235467691130294144838258730d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2364:6: 2364 | xgk(6)=0.405845151377397166906606412076961d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2365:6: 2365 | xgk(7)=0.207784955007898467600689403773245d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2366:6: 2366 | xgk(8)=0.000000000000000000000000000000000d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2368:6: 2368 | wgk(1)=0.022935322010529224963732008058970d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2369:6: 2369 | wgk(2)=0.063092092629978553290700663189204d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2370:6: 2370 | wgk(3)=0.104790010322250183839876322541518d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2371:6: 2371 | wgk(4)=0.140653259715525918745189590510238d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2372:6: 2372 | wgk(5)=0.169004726639267902826583426598550d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2373:6: 2373 | wgk(6)=0.190350578064785409913256402421014d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2374:6: 2374 | wgk(7)=0.204432940075298892414161999234649d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2375:6: 2375 | wgk(8)=0.209482141084727828012999174891714d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2384:6: 2384 | resg = fc*wg(4) ! init res Gauss ! fc * 4e poids Gauss | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2390:2: 2390 | jtw = j*2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2404:2: 2404 | resg = resg+wg(j)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2408:2: 2408 | do j=1,4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2409:2: 2409 | jtwm1 = j*2-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2423:2: 2423 | resk = resk + wgk(jtwm1)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2430:10: 2430 | resasc = resasc+wgk(j)*(dabs(fv1(j)-reskh)+dabs(fv2(j)-reskh)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2431:6: 2431 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2453:2: 2453 | double precision,dimension(5)::wg | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2456:2: 2456 | dimension fv1(10),fv2(10) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2458:5: 2458 | D1MACH(1)=2.23D-308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2459:6: 2459 | D1MACH(2)=1.79D+308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2460:6: 2460 | D1MACH(3)=1.11D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2461:6: 2461 | D1MACH(4)=2.22D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2462:6: 2462 | D1MACH(5)=0.301029995663981195D0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2464:6: 2464 | epmach = d1mach(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2465:6: 2465 | uflow = d1mach(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2467:2: 2467 | wg(1)=0.066713443086881375935688098933317928579d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2468:5: 2468 | wg(2)=0.149451349150580593145776339657697332403d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2469:6: 2469 | wg(3)=0.219086362515982043995534934228163192459d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2470:6: 2470 | wg(4)=0.269266719309996355091226921569469352860d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2473:6: 2473 | xgk(1)=0.995657163025808080735527280689002847921d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2474:6: 2474 | xgk(2)=0.973906528517171720077964012084452053428d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2475:6: 2475 | xgk(3)=0.930157491355708226001207180059508346225d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2476:6: 2476 | xgk(4)=0.865063366688984510732096688423493048528d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2477:6: 2477 | xgk(5)=0.780817726586416897063717578345042377163d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2478:6: 2478 | xgk(6)=0.679409568299024406234327365114873575769d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2479:6: 2479 | xgk(7)=0.562757134668604683339000099272694140843d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2483:6: 2483 | xgk(11)=0.000000000000000000000000000000000d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2485:6: 2485 | wgk(1)=0.0116946388673718742780643960621920483962d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2486:6: 2486 | wgk(2)=0.0325581623079647274788189724593897606174d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2487:6: 2487 | wgk(3)=0.0547558965743519960313813002445801763737d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2488:6: 2488 | wgk(4)=0.0750396748109199527670431409161900093952d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2489:6: 2489 | wgk(5)=0.0931254545836976055350654650833663443900d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2490:6: 2490 | wgk(6)=0.109387158802297641899210590325804960272d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2491:6: 2491 | wgk(7)=0.123491976262065851077958109831074159512d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2492:6: 2492 | wgk(8)=0.134709217311473325928054001771706832761d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2493:2: 2493 | wgk(9)=0.142775938577060080797094273138717060886d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2494:2: 2494 | wgk(10)=0.147739104901338491374841515972068045524d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2495:2: 2495 | wgk(11)=0.149445554002916905664936468389821203745d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2504:6: 2504 | resg = 0 ! init 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2512:17: 2512 | jtw = j*2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2513:17: 2513 | dx=xr*xgk(jtw) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2514:17: 2514 | xx = xm+dx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2515:17: 2515 | call fonct(xx,the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2516:17: 2516 | call fonct(xx,the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2517:17: 2517 | call fonct(xx,the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2518:17: 2518 | f1 = (su01**v01)*(su02**v02)*ri01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2519:17: 2519 | xx = xm-dx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2520:17: 2520 | call fonct(xx,the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2521:17: 2521 | call fonct(xx,the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2522:17: 2522 | call fonct(xx,the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2523:17: 2523 | f2 = (su01**v01)*(su02**v02)*ri01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2524:17: 2524 | fv1(jtw) = f1 ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2525:17: 2525 | fv2(jtw) = f2 ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2526:2: 2526 | resg = resg+wg(j)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2530:2: 2530 | do j=1,5 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2531:2: 2531 | jtwm1 = j*2-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2545:2: 2545 | resk = resk + wgk(jtwm1)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2550:2: 2550 | reskh = resk*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2553:10: 2553 | resasc = resasc+wgk(j)*(dabs(fv1(j)-reskh)+dabs(fv2(j)-reskh)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2554:6: 2554 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2556:6: 2556 | res = resk*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2557:2: 2557 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2568:2: 2568 | use commun,only:zi01,zi12,zi02,nz01,nz12,nz02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2579:2: 2579 | double precision,dimension(5)::wg | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2582:2: 2582 | dimension fv1(10),fv2(10) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2584:5: 2584 | D1MACH(1)=2.23D-308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2585:6: 2585 | D1MACH(2)=1.79D+308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2586:6: 2586 | D1MACH(3)=1.11D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2587:6: 2587 | D1MACH(4)=2.22D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2588:6: 2588 | D1MACH(5)=0.301029995663981195D0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2590:6: 2590 | epmach = d1mach(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2591:6: 2591 | uflow = d1mach(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2593:2: 2593 | wg(1)=0.066713443086881375935688098933317928579d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2594:5: 2594 | wg(2)=0.149451349150580593145776339657697332403d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2595:6: 2595 | wg(3)=0.219086362515982043995534934228163192459d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2596:6: 2596 | wg(4)=0.269266719309996355091226921569469352860d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2599:6: 2599 | xgk(1)=0.995657163025808080735527280689002847921d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2600:6: 2600 | xgk(2)=0.973906528517171720077964012084452053428d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2601:6: 2601 | xgk(3)=0.930157491355708226001207180059508346225d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2602:6: 2602 | xgk(4)=0.865063366688984510732096688423493048528d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2603:6: 2603 | xgk(5)=0.780817726586416897063717578345042377163d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2604:6: 2604 | xgk(6)=0.679409568299024406234327365114873575769d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2605:6: 2605 | xgk(7)=0.562757134668604683339000099272694140843d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2609:6: 2609 | xgk(11)=0.000000000000000000000000000000000d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2611:6: 2611 | wgk(1)=0.0116946388673718742780643960621920483962d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2612:6: 2612 | wgk(2)=0.0325581623079647274788189724593897606174d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2613:6: 2613 | wgk(3)=0.0547558965743519960313813002445801763737d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2614:6: 2614 | wgk(4)=0.0750396748109199527670431409161900093952d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2615:6: 2615 | wgk(5)=0.0931254545836976055350654650833663443900d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2616:6: 2616 | wgk(6)=0.109387158802297641899210590325804960272d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2617:6: 2617 | wgk(7)=0.123491976262065851077958109831074159512d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2618:6: 2618 | wgk(8)=0.134709217311473325928054001771706832761d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2619:2: 2619 | wgk(9)=0.142775938577060080797094273138717060886d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2620:2: 2620 | wgk(10)=0.147739104901338491374841515972068045524d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2621:2: 2621 | wgk(11)=0.149445554002916905664936468389821203745d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2630:6: 2630 | resg = 0 ! init 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2636:2: 2636 | jtw = j*2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2650:2: 2650 | resg = resg+wg(j)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2654:2: 2654 | do j=1,5 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2655:2: 2655 | jtwm1 = j*2-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2669:2: 2669 | resk = resk + wgk(jtwm1)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2676:10: 2676 | resasc = resasc+wgk(j)*(dabs(fv1(j)-reskh)+dabs(fv2(j)-reskh)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2677:6: 2677 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2700:2: 2700 | double precision,dimension(8)::wg | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2703:2: 2703 | dimension fv1(15),fv2(15) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2705:5: 2705 | D1MACH(1)=2.23D-308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2706:6: 2706 | D1MACH(2)=1.79D+308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2707:6: 2707 | D1MACH(3)=1.11D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2708:6: 2708 | D1MACH(4)=2.22D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2709:6: 2709 | D1MACH(5)=0.301029995663981195D0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2711:6: 2711 | epmach = d1mach(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2712:6: 2712 | uflow = d1mach(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2714:2: 2714 | wg(1)=0.0307532419961172683546283935772044177217d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2715:5: 2715 | wg(2)=0.0703660474881081247092674164506673384667d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2716:6: 2716 | wg(3)=0.107159220467171935011869546685869303416d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2717:6: 2717 | wg(4)=0.139570677926154314447804794511028322521d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2719:2: 2719 | wg(6)=0.186161000015562211026800561866422824506d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2724:6: 2724 | xgk(1)=0.998002298693397060285172840152271209073d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2725:6: 2725 | xgk(2)=0.987992518020485428489565718586612581147d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2726:6: 2726 | xgk(3)=0.967739075679139134257347978784337225283d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2727:6: 2727 | xgk(4)=0.937273392400705904307758947710209471244d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2728:6: 2728 | xgk(5)=0.897264532344081900882509656454495882832d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2729:6: 2729 | xgk(6)=0.848206583410427216200648320774216851366d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2730:6: 2730 | xgk(7)=0.790418501442465932967649294817947346862d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2734:2: 2734 | xgk(11)=0.485081863640239680693655740232350612866d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2735:2: 2735 | xgk(12)=0.394151347077563369897207370981045468363d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2736:2: 2736 | xgk(13)=0.299180007153168812166780024266388962662d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2737:2: 2737 | xgk(14)=0.201194093997434522300628303394596207813d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2738:2: 2738 | xgk(15)=0.101142066918717499027074231447392338787d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2739:6: 2739 | xgk(16)=0.000000000000000000000000000000000d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2741:6: 2741 | wgk(1)=0.00537747987292334898779205143012764981831d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2742:6: 2742 | wgk(2)=0.0150079473293161225383747630758072680946d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2743:6: 2743 | wgk(3)=0.0254608473267153201868740010196533593973d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2744:6: 2744 | wgk(4)=0.0353463607913758462220379484783600481226d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2745:6: 2745 | wgk(5)=0.0445897513247648766082272993732796902233d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2746:6: 2746 | wgk(6)=0.0534815246909280872653431472394302967716d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2747:6: 2747 | wgk(7)=0.0620095678006706402851392309608029321904d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2748:6: 2748 | wgk(8)=0.0698541213187282587095200770991474757860d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2749:2: 2749 | wgk(9)=0.0768496807577203788944327774826590067221d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2750:2: 2750 | wgk(10)=0.0830805028231330210382892472861037896016d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2751:2: 2751 | wgk(11)=0.0885644430562117706472754436937743032123d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2752:2: 2752 | wgk(12)=0.0931265981708253212254868727473457185619d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2753:2: 2753 | wgk(13)=0.0966427269836236785051799076275893351367d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2754:2: 2754 | wgk(14)=0.0991735987217919593323931734846031310596d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2755:2: 2755 | wgk(15)=0.100769845523875595044946662617569721916d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2756:2: 2756 | wgk(16)=0.101330007014791549017374792767492546771d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2765:6: 2765 | resg = wg(8)*fc ! init at wg(8) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2773:17: 2773 | jtw = j*2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2774:17: 2774 | dx=xr*xgk(jtw) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2775:17: 2775 | xx = xm+dx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2776:17: 2776 | call fonct(xx,the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2777:17: 2777 | call fonct(xx,the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2778:17: 2778 | call fonct(xx,the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2779:17: 2779 | f1 = (su01**v01)*(su02**v02)*ri01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2780:17: 2780 | xx = xm-dx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2781:17: 2781 | call fonct(xx,the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2782:17: 2782 | call fonct(xx,the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2783:17: 2783 | call fonct(xx,the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2784:17: 2784 | f2 = (su01**v01)*(su02**v02)*ri01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2785:17: 2785 | fv1(jtw) = f1 ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2786:17: 2786 | fv2(jtw) = f2 ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2787:2: 2787 | resg = resg+wg(j)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2791:2: 2791 | do j=1,8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2792:2: 2792 | jtwm1 = j*2-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2806:2: 2806 | resk = resk + wgk(jtwm1)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2811:2: 2811 | reskh = resk*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2814:10: 2814 | resasc = resasc+wgk(j)*(dabs(fv1(j)-reskh)+dabs(fv2(j)-reskh)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2815:6: 2815 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2817:6: 2817 | res = resk*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2818:2: 2818 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2828:2: 2828 | use commun,only:zi01,zi12,zi02,nz01,nz12,nz02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2840:2: 2840 | double precision,dimension(8)::wg | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2843:2: 2843 | dimension fv1(15),fv2(15) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2845:5: 2845 | D1MACH(1)=2.23D-308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2846:6: 2846 | D1MACH(2)=1.79D+308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2847:6: 2847 | D1MACH(3)=1.11D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2848:6: 2848 | D1MACH(4)=2.22D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2849:6: 2849 | D1MACH(5)=0.301029995663981195D0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2851:6: 2851 | epmach = d1mach(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2852:6: 2852 | uflow = d1mach(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2854:2: 2854 | wg(1)=0.0307532419961172683546283935772044177217d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2855:5: 2855 | wg(2)=0.0703660474881081247092674164506673384667d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2856:6: 2856 | wg(3)=0.107159220467171935011869546685869303416d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2857:6: 2857 | wg(4)=0.139570677926154314447804794511028322521d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2859:2: 2859 | wg(6)=0.186161000015562211026800561866422824506d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2864:6: 2864 | xgk(1)=0.998002298693397060285172840152271209073d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2865:6: 2865 | xgk(2)=0.987992518020485428489565718586612581147d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2866:6: 2866 | xgk(3)=0.967739075679139134257347978784337225283d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2867:6: 2867 | xgk(4)=0.937273392400705904307758947710209471244d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2868:6: 2868 | xgk(5)=0.897264532344081900882509656454495882832d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2869:6: 2869 | xgk(6)=0.848206583410427216200648320774216851366d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2870:6: 2870 | xgk(7)=0.790418501442465932967649294817947346862d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2874:2: 2874 | xgk(11)=0.485081863640239680693655740232350612866d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2875:2: 2875 | xgk(12)=0.394151347077563369897207370981045468363d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2876:2: 2876 | xgk(13)=0.299180007153168812166780024266388962662d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2877:2: 2877 | xgk(14)=0.201194093997434522300628303394596207813d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2878:2: 2878 | xgk(15)=0.101142066918717499027074231447392338787d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2879:6: 2879 | xgk(16)=0.000000000000000000000000000000000d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2881:6: 2881 | wgk(1)=0.00537747987292334898779205143012764981831d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2882:6: 2882 | wgk(2)=0.0150079473293161225383747630758072680946d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2883:6: 2883 | wgk(3)=0.0254608473267153201868740010196533593973d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2884:6: 2884 | wgk(4)=0.0353463607913758462220379484783600481226d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2885:6: 2885 | wgk(5)=0.0445897513247648766082272993732796902233d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2886:6: 2886 | wgk(6)=0.0534815246909280872653431472394302967716d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2887:6: 2887 | wgk(7)=0.0620095678006706402851392309608029321904d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2888:6: 2888 | wgk(8)=0.0698541213187282587095200770991474757860d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2889:2: 2889 | wgk(9)=0.0768496807577203788944327774826590067221d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2890:2: 2890 | wgk(10)=0.0830805028231330210382892472861037896016d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2891:2: 2891 | wgk(11)=0.0885644430562117706472754436937743032123d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2892:2: 2892 | wgk(12)=0.0931265981708253212254868727473457185619d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2893:2: 2893 | wgk(13)=0.0966427269836236785051799076275893351367d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2894:2: 2894 | wgk(14)=0.0991735987217919593323931734846031310596d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2895:2: 2895 | wgk(15)=0.100769845523875595044946662617569721916d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2896:2: 2896 | wgk(16)=0.101330007014791549017374792767492546771d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2905:6: 2905 | resg = wg(8)*fc ! init at wg(8) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2911:2: 2911 | jtw = j*2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2925:2: 2925 | resg = resg+wg(j)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2929:2: 2929 | do j=1,8 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2930:2: 2930 | jtwm1 = j*2-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2944:2: 2944 | resk = resk + wgk(jtwm1)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2951:10: 2951 | resasc = resasc+wgk(j)*(dabs(fv1(j)-reskh)+dabs(fv2(j)-reskh)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2952:6: 2952 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2974:2: 2974 | double precision,dimension(10)::wg | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2977:2: 2977 | dimension fv1(20),fv2(20) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2979:5: 2979 | D1MACH(1)=2.23D-308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2980:6: 2980 | D1MACH(2)=1.79D+308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2981:6: 2981 | D1MACH(3)=1.11D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2982:6: 2982 | D1MACH(4)=2.22D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2983:6: 2983 | D1MACH(5)=0.301029995663981195D0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2985:6: 2985 | epmach = d1mach(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2986:6: 2986 | uflow = d1mach(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2988:2: 2988 | wg(1)=0.0176140071391521183118619623518528163621d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2989:5: 2989 | wg(2)=0.0406014298003869413310399522749321098791d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2990:6: 2990 | wg(3)=0.0626720483341090635695065351870416063516d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2991:6: 2991 | wg(4)=0.0832767415767047487247581432220462061002d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:2993:2: 2993 | wg(6)=0.118194531961518417312377377711382287005d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3001:6: 3001 | xgk(1)=0.998859031588277663838315576545863010000d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3002:6: 3002 | xgk(2)=0.993128599185094924786122388471320278223d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3003:6: 3003 | xgk(3)=0.981507877450250259193342994720216944567d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3004:6: 3004 | xgk(4)=0.963971927277913791267666131197277221912d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3005:6: 3005 | xgk(5)=0.940822633831754753519982722212443380274d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3006:6: 3006 | xgk(6)=0.912234428251325905867752441203298113049d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3007:6: 3007 | xgk(7)=0.878276811252281976077442995113078466711d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3011:2: 3011 | xgk(11)=0.693237656334751384805490711845931533386d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3012:2: 3012 | xgk(12)=0.636053680726515025452836696226285936743d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3013:2: 3013 | xgk(13)=0.575140446819710315342946036586425132814d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3014:2: 3014 | xgk(14)=0.510867001950827098004364050955250998425d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3015:2: 3015 | xgk(15)=0.443593175238725103199992213492640107840d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3016:2: 3016 | xgk(16)=0.373706088715419560672548177024927237396d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3017:2: 3017 | xgk(17)=0.301627868114913004320555356858592260615d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3018:2: 3018 | xgk(18)=0.227785851141645078080496195368574624743d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3019:2: 3019 | xgk(19)=0.152605465240922675505220241022677527912d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3020:2: 3020 | xgk(20)=0.765265211334973337546404093988382110048d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3021:6: 3021 | xgk(21)=0.000000000000000000000000000000000d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3023:6: 3023 | wgk(1)=0.00307358371852053150121829324603098748803d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3024:6: 3024 | wgk(2)=0.00860026985564294219866178795010234725213d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3025:6: 3025 | wgk(3)=0.0146261692569712529837879603088683561639d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3026:6: 3026 | wgk(4)=0.0203883734612665235980102314327547051228d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3027:6: 3027 | wgk(5)=0.0258821336049511588345050670961531429995d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3028:6: 3028 | wgk(6)=0.0312873067770327989585431193238007378878d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3029:6: 3029 | wgk(7)=0.0366001697582007980305572407072110084875d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3030:6: 3030 | wgk(8)=0.0416688733279736862637883059368947380440d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3031:2: 3031 | wgk(9)=0.0464348218674976747202318809261075168421d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3032:2: 3032 | wgk(10)=0.0509445739237286919327076700503449486648d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3033:2: 3033 | wgk(11)=0.0551951053482859947448323724197773291948d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3034:2: 3034 | wgk(12)=0.0591114008806395723749672206485942171364d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3035:2: 3035 | wgk(13)=0.0626532375547811680258701221742549805858d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3036:2: 3036 | wgk(14)=0.0658345971336184221115635569693979431472d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3037:2: 3037 | wgk(15)=0.0686486729285216193456234118853678017155d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3038:2: 3038 | wgk(16)=0.0710544235534440683057903617232101674129d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3039:2: 3039 | wgk(17)=0.0730306903327866674951894176589131127606d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3040:2: 3040 | wgk(18)=0.0745828754004991889865814183624875286161d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3041:2: 3041 | wgk(19)=0.0757044976845566746595427753766165582634d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3042:2: 3042 | wgk(20)=0.0763778676720807367055028350380610018008d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3043:2: 3043 | wgk(21)=0.0766007119179996564450499015301017408279d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3052:6: 3052 | resg = 0 ! init at wg(8) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3060:17: 3060 | jtw = j*2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3061:17: 3061 | dx=xr*xgk(jtw) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3062:17: 3062 | xx = xm+dx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3063:17: 3063 | call fonct(xx,the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3064:17: 3064 | call fonct(xx,the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3065:17: 3065 | call fonct(xx,the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3066:17: 3066 | f1 = (su01**v01)*(su02**v02)*ri01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3067:17: 3067 | xx = xm-dx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3068:17: 3068 | call fonct(xx,the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3069:17: 3069 | call fonct(xx,the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3070:17: 3070 | call fonct(xx,the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3071:17: 3071 | f2 = (su01**v01)*(su02**v02)*ri01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3072:17: 3072 | fv1(jtw) = f1 ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3073:17: 3073 | fv2(jtw) = f2 ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3074:2: 3074 | resg = resg+wg(j)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3078:2: 3078 | do j=1,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3079:2: 3079 | jtwm1 = j*2-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3093:2: 3093 | resk = resk + wgk(jtwm1)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3098:2: 3098 | reskh = resk*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3101:10: 3101 | resasc = resasc+wgk(j)*(dabs(fv1(j)-reskh)+dabs(fv2(j)-reskh)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3102:6: 3102 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3104:6: 3104 | res = resk*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3105:2: 3105 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3115:2: 3115 | use commun,only:zi01,zi12,zi02,nz01,nz12,nz02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3125:2: 3125 | double precision,dimension(10)::wg | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3128:2: 3128 | dimension fv1(20),fv2(20) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3130:5: 3130 | D1MACH(1)=2.23D-308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3131:6: 3131 | D1MACH(2)=1.79D+308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3132:6: 3132 | D1MACH(3)=1.11D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3133:6: 3133 | D1MACH(4)=2.22D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3134:6: 3134 | D1MACH(5)=0.301029995663981195D0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3136:6: 3136 | epmach = d1mach(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3137:6: 3137 | uflow = d1mach(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3139:2: 3139 | wg(1)=0.0176140071391521183118619623518528163621d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3140:5: 3140 | wg(2)=0.0406014298003869413310399522749321098791d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3141:6: 3141 | wg(3)=0.0626720483341090635695065351870416063516d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3142:6: 3142 | wg(4)=0.0832767415767047487247581432220462061002d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3144:2: 3144 | wg(6)=0.118194531961518417312377377711382287005d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3152:6: 3152 | xgk(1)=0.998859031588277663838315576545863010000d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3153:6: 3153 | xgk(2)=0.993128599185094924786122388471320278223d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3154:6: 3154 | xgk(3)=0.981507877450250259193342994720216944567d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3155:6: 3155 | xgk(4)=0.963971927277913791267666131197277221912d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3156:6: 3156 | xgk(5)=0.940822633831754753519982722212443380274d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3157:6: 3157 | xgk(6)=0.912234428251325905867752441203298113049d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3158:6: 3158 | xgk(7)=0.878276811252281976077442995113078466711d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3162:2: 3162 | xgk(11)=0.693237656334751384805490711845931533386d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3163:2: 3163 | xgk(12)=0.636053680726515025452836696226285936743d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3164:2: 3164 | xgk(13)=0.575140446819710315342946036586425132814d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3165:2: 3165 | xgk(14)=0.510867001950827098004364050955250998425d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3166:2: 3166 | xgk(15)=0.443593175238725103199992213492640107840d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3167:2: 3167 | xgk(16)=0.373706088715419560672548177024927237396d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3168:2: 3168 | xgk(17)=0.301627868114913004320555356858592260615d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3169:2: 3169 | xgk(18)=0.227785851141645078080496195368574624743d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3170:2: 3170 | xgk(19)=0.152605465240922675505220241022677527912d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3171:2: 3171 | xgk(20)=0.765265211334973337546404093988382110048d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3172:6: 3172 | xgk(21)=0.000000000000000000000000000000000d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3174:6: 3174 | wgk(1)=0.00307358371852053150121829324603098748803d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3175:6: 3175 | wgk(2)=0.00860026985564294219866178795010234725213d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3176:6: 3176 | wgk(3)=0.0146261692569712529837879603088683561639d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3177:6: 3177 | wgk(4)=0.0203883734612665235980102314327547051228d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3178:6: 3178 | wgk(5)=0.0258821336049511588345050670961531429995d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3179:6: 3179 | wgk(6)=0.0312873067770327989585431193238007378878d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3180:6: 3180 | wgk(7)=0.0366001697582007980305572407072110084875d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3181:6: 3181 | wgk(8)=0.0416688733279736862637883059368947380440d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3182:2: 3182 | wgk(9)=0.0464348218674976747202318809261075168421d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3183:2: 3183 | wgk(10)=0.0509445739237286919327076700503449486648d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3184:2: 3184 | wgk(11)=0.0551951053482859947448323724197773291948d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3185:2: 3185 | wgk(12)=0.0591114008806395723749672206485942171364d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3186:2: 3186 | wgk(13)=0.0626532375547811680258701221742549805858d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3187:2: 3187 | wgk(14)=0.0658345971336184221115635569693979431472d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3188:2: 3188 | wgk(15)=0.0686486729285216193456234118853678017155d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3189:2: 3189 | wgk(16)=0.0710544235534440683057903617232101674129d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3190:2: 3190 | wgk(17)=0.0730306903327866674951894176589131127606d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3191:2: 3191 | wgk(18)=0.0745828754004991889865814183624875286161d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3192:2: 3192 | wgk(19)=0.0757044976845566746595427753766165582634d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3193:2: 3193 | wgk(20)=0.0763778676720807367055028350380610018008d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3194:2: 3194 | wgk(21)=0.0766007119179996564450499015301017408279d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3203:6: 3203 | resg = 0 ! init at 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3209:2: 3209 | jtw = j*2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3223:2: 3223 | resg = resg+wg(j)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3227:2: 3227 | do j=1,10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3228:2: 3228 | jtwm1 = j*2-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3242:2: 3242 | resk = resk + wgk(jtwm1)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3249:10: 3249 | resasc = resasc+wgk(j)*(dabs(fv1(j)-reskh)+dabs(fv2(j)-reskh)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3250:6: 3250 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3273:2: 3273 | double precision,dimension(13)::wg | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3276:2: 3276 | dimension fv1(25),fv2(25) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3278:5: 3278 | D1MACH(1)=2.23D-308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3279:6: 3279 | D1MACH(2)=1.79D+308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3280:6: 3280 | D1MACH(3)=1.11D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3281:6: 3281 | D1MACH(4)=2.22D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3282:6: 3282 | D1MACH(5)=0.301029995663981195D0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3284:6: 3284 | epmach = d1mach(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3285:6: 3285 | uflow = d1mach(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3287:2: 3287 | wg(1)=0.0113937985010262879479029641132347736033d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3288:5: 3288 | wg(2)=0.0263549866150321372619018152952991449360d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3289:6: 3289 | wg(3)=0.0409391567013063126556234877116459536608d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3290:6: 3290 | wg(4)=0.0549046959758351919259368915404733241601d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3292:2: 3292 | wg(6)=0.0801407003350010180132349596691113022902d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3297:2: 3297 | wg(11)=0.119455763535784772228178126512901047390d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3298:2: 3298 | wg(12)=0.122242442990310041688959518945851505835d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3299:2: 3299 | wg(13)=0.123176053726715451203902873079050142438d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3303:6: 3303 | xgk(1)=0.999262104992609834193457486540340593705d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3304:6: 3304 | xgk(2)=0.995556969790498097908784946893901617258d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3305:6: 3305 | xgk(3)=0.988035794534077247637331014577406227072d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3306:6: 3306 | xgk(4)=0.976663921459517511498315386479594067745d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3307:6: 3307 | xgk(5)=0.961614986425842512418130033660167241692d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3308:6: 3308 | xgk(6)=0.942974571228974339414011169658470531905d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3309:6: 3309 | xgk(7)=0.920747115281701561746346084546330631575d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3313:2: 3313 | xgk(11)=0.797873797998500059410410904994306569409d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3314:2: 3314 | xgk(12)=0.759259263037357630577282865204360976388d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3315:2: 3315 | xgk(13)=0.717766406813084388186654079773297780598d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3316:2: 3316 | xgk(14)=0.673566368473468364485120633247622175883d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3317:2: 3317 | xgk(15)=0.626810099010317412788122681624517881020d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3318:2: 3318 | xgk(16)=0.577662930241222967723689841612654067396d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3319:2: 3319 | xgk(17)=0.526325284334719182599623778158010178037d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3320:2: 3320 | xgk(18)=0.473002731445714960522182115009192041332d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3321:2: 3321 | xgk(19)=0.417885382193037748851814394594572487093d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3322:2: 3322 | xgk(20)=0.361172305809387837735821730127640667422d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3323:2: 3323 | xgk(21)=0.303089538931107830167478909980339329200d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3324:2: 3324 | xgk(22)=0.243866883720988432045190362797451586406d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3325:2: 3325 | xgk(23)=0.183718939421048892015969888759528415785d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3326:2: 3326 | xgk(24)=0.122864692610710396387359818808036805532d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3327:2: 3327 | xgk(25)=0.0615444830056850788865463923667966312817d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3328:6: 3328 | xgk(26)=0.000000000000000000000000000000000d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3330:6: 3330 | wgk(1)=0.00198738389233031592650785188284340988943d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3331:6: 3331 | wgk(2)=0.00556193213535671375804023690106552207018d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3332:6: 3332 | wgk(3)=0.00947397338617415160720771052365532387165d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3333:6: 3333 | wgk(4)=0.0132362291955716748136564058469762380776d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3334:6: 3334 | wgk(5)=0.0168478177091282982315166675363363158404d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3335:6: 3335 | wgk(6)=0.0204353711458828354565682922359389736788d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3336:6: 3336 | wgk(7)=0.0240099456069532162200924891648810813929d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3337:6: 3337 | wgk(8)=0.0274753175878517378029484555178110786148d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3338:2: 3338 | wgk(9)=0.0307923001673874888911090202152285856009d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3339:2: 3339 | wgk(10)=0.0340021302743293378367487952295512032257d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3340:2: 3340 | wgk(11)=0.0371162714834155435603306253676198759960d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3341:2: 3341 | wgk(12)=0.0400838255040323820748392844670756464014d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3342:2: 3342 | wgk(13)=0.0428728450201700494768957924394951611020d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3343:2: 3343 | wgk(14)=0.0455029130499217889098705847526603930437d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3344:2: 3344 | wgk(15)=0.0479825371388367139063922557569147549836d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3345:2: 3345 | wgk(16)=0.0502776790807156719633252594334400844406d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3346:2: 3346 | wgk(17)=0.0523628858064074758643667121378727148874d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3347:2: 3347 | wgk(18)=0.0542511298885454901445433704598756068261d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3348:2: 3348 | wgk(19)=0.0559508112204123173082406863827473468203d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3349:2: 3349 | wgk(20)=0.0574371163615678328535826939395064719948d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3350:2: 3350 | wgk(21)=0.0586896800223942079619741758567877641398d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3351:2: 3351 | wgk(22)=0.0597203403241740599790992919325618538354d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3352:2: 3352 | wgk(23)=0.0605394553760458629453602675175654271623d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3353:2: 3353 | wgk(24)=0.0611285097170530483058590304162927119227d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3354:2: 3354 | wgk(25)=0.0614711898714253166615441319652641775865d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3355:2: 3355 | wgk(26)=0.0615808180678329350787598242400645531904d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3364:6: 3364 | resg = fc*wgk(13) ! init at wg(13) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3372:17: 3372 | jtw = j*2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3373:17: 3373 | dx=xr*xgk(jtw) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3374:17: 3374 | xx = xm+dx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3375:17: 3375 | call fonct(xx,the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3376:17: 3376 | call fonct(xx,the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3377:17: 3377 | call fonct(xx,the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3378:17: 3378 | f1 = (su01**v01)*(su02**v02)*ri01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3379:17: 3379 | xx = xm-dx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3380:17: 3380 | call fonct(xx,the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3381:17: 3381 | call fonct(xx,the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3382:17: 3382 | call fonct(xx,the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3383:17: 3383 | f2 = (su01**v01)*(su02**v02)*ri01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3384:17: 3384 | fv1(jtw) = f1 ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3385:17: 3385 | fv2(jtw) = f2 ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3386:2: 3386 | resg = resg+wg(j)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3390:2: 3390 | do j=1,13 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3391:2: 3391 | jtwm1 = j*2-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3405:2: 3405 | resk = resk + wgk(jtwm1)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3410:2: 3410 | reskh = resk*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3413:10: 3413 | resasc = resasc+wgk(j)*(dabs(fv1(j)-reskh)+dabs(fv2(j)-reskh)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3414:6: 3414 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3416:6: 3416 | res = resk*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3417:2: 3417 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3428:2: 3428 | use commun,only:zi01,zi12,zi02,nz01,nz12,nz02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3439:2: 3439 | double precision,dimension(13)::wg | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3442:2: 3442 | dimension fv1(25),fv2(25) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3444:5: 3444 | D1MACH(1)=2.23D-308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3445:6: 3445 | D1MACH(2)=1.79D+308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3446:6: 3446 | D1MACH(3)=1.11D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3447:6: 3447 | D1MACH(4)=2.22D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3448:6: 3448 | D1MACH(5)=0.301029995663981195D0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3450:6: 3450 | epmach = d1mach(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3451:6: 3451 | uflow = d1mach(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3453:2: 3453 | wg(1)=0.0113937985010262879479029641132347736033d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3454:5: 3454 | wg(2)=0.0263549866150321372619018152952991449360d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3455:6: 3455 | wg(3)=0.0409391567013063126556234877116459536608d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3456:6: 3456 | wg(4)=0.0549046959758351919259368915404733241601d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3458:2: 3458 | wg(6)=0.0801407003350010180132349596691113022902d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3463:2: 3463 | wg(11)=0.119455763535784772228178126512901047390d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3464:2: 3464 | wg(12)=0.122242442990310041688959518945851505835d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3465:2: 3465 | wg(13)=0.123176053726715451203902873079050142438d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3469:6: 3469 | xgk(1)=0.999262104992609834193457486540340593705d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3470:6: 3470 | xgk(2)=0.995556969790498097908784946893901617258d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3471:6: 3471 | xgk(3)=0.988035794534077247637331014577406227072d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3472:6: 3472 | xgk(4)=0.976663921459517511498315386479594067745d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3473:6: 3473 | xgk(5)=0.961614986425842512418130033660167241692d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3474:6: 3474 | xgk(6)=0.942974571228974339414011169658470531905d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3475:6: 3475 | xgk(7)=0.920747115281701561746346084546330631575d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3479:2: 3479 | xgk(11)=0.797873797998500059410410904994306569409d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3480:2: 3480 | xgk(12)=0.759259263037357630577282865204360976388d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3481:2: 3481 | xgk(13)=0.717766406813084388186654079773297780598d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3482:2: 3482 | xgk(14)=0.673566368473468364485120633247622175883d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3483:2: 3483 | xgk(15)=0.626810099010317412788122681624517881020d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3484:2: 3484 | xgk(16)=0.577662930241222967723689841612654067396d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3485:2: 3485 | xgk(17)=0.526325284334719182599623778158010178037d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3486:2: 3486 | xgk(18)=0.473002731445714960522182115009192041332d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3487:2: 3487 | xgk(19)=0.417885382193037748851814394594572487093d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3488:2: 3488 | xgk(20)=0.361172305809387837735821730127640667422d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3489:2: 3489 | xgk(21)=0.303089538931107830167478909980339329200d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3490:2: 3490 | xgk(22)=0.243866883720988432045190362797451586406d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3491:2: 3491 | xgk(23)=0.183718939421048892015969888759528415785d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3492:2: 3492 | xgk(24)=0.122864692610710396387359818808036805532d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3493:2: 3493 | xgk(25)=0.0615444830056850788865463923667966312817d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3494:6: 3494 | xgk(26)=0.000000000000000000000000000000000d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3496:6: 3496 | wgk(1)=0.00198738389233031592650785188284340988943d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3497:6: 3497 | wgk(2)=0.00556193213535671375804023690106552207018d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3498:6: 3498 | wgk(3)=0.00947397338617415160720771052365532387165d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3499:6: 3499 | wgk(4)=0.0132362291955716748136564058469762380776d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3500:6: 3500 | wgk(5)=0.0168478177091282982315166675363363158404d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3501:6: 3501 | wgk(6)=0.0204353711458828354565682922359389736788d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3502:6: 3502 | wgk(7)=0.0240099456069532162200924891648810813929d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3503:6: 3503 | wgk(8)=0.0274753175878517378029484555178110786148d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3504:2: 3504 | wgk(9)=0.0307923001673874888911090202152285856009d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3505:2: 3505 | wgk(10)=0.0340021302743293378367487952295512032257d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3506:2: 3506 | wgk(11)=0.0371162714834155435603306253676198759960d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3507:2: 3507 | wgk(12)=0.0400838255040323820748392844670756464014d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3508:2: 3508 | wgk(13)=0.0428728450201700494768957924394951611020d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3509:2: 3509 | wgk(14)=0.0455029130499217889098705847526603930437d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3510:2: 3510 | wgk(15)=0.0479825371388367139063922557569147549836d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3511:2: 3511 | wgk(16)=0.0502776790807156719633252594334400844406d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3512:2: 3512 | wgk(17)=0.0523628858064074758643667121378727148874d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3513:2: 3513 | wgk(18)=0.0542511298885454901445433704598756068261d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3514:2: 3514 | wgk(19)=0.0559508112204123173082406863827473468203d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3515:2: 3515 | wgk(20)=0.0574371163615678328535826939395064719948d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3516:2: 3516 | wgk(21)=0.0586896800223942079619741758567877641398d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3517:2: 3517 | wgk(22)=0.0597203403241740599790992919325618538354d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3518:2: 3518 | wgk(23)=0.0605394553760458629453602675175654271623d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3519:2: 3519 | wgk(24)=0.0611285097170530483058590304162927119227d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3520:2: 3520 | wgk(25)=0.0614711898714253166615441319652641775865d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3521:2: 3521 | wgk(26)=0.0615808180678329350787598242400645531904d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3530:6: 3530 | resg = fc*wgk(13) ! init at wg(13) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3536:2: 3536 | jtw = j*2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3550:2: 3550 | resg = resg+wg(j)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3554:2: 3554 | do j=1,13 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3555:2: 3555 | jtwm1 = j*2-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3569:2: 3569 | resk = resk + wgk(jtwm1)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3576:10: 3576 | resasc = resasc+wgk(j)*(dabs(fv1(j)-reskh)+dabs(fv2(j)-reskh)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3577:6: 3577 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3600:2: 3600 | double precision,dimension(15)::wg | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3603:2: 3603 | dimension fv1(30),fv2(30) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3605:5: 3605 | D1MACH(1)=2.23D-308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3606:6: 3606 | D1MACH(2)=1.79D+308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3607:6: 3607 | D1MACH(3)=1.11D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3608:6: 3608 | D1MACH(4)=2.22D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3609:6: 3609 | D1MACH(5)=0.301029995663981195D0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3611:6: 3611 | epmach = d1mach(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3612:6: 3612 | uflow = d1mach(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3614:2: 3614 | wg(1)=0.00796819249616660561546588347467362245048d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3615:5: 3615 | wg(2)=0.0184664683110909591423021319120472690962d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3616:6: 3616 | wg(3)=0.0287847078833233693497191796112920436396d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3617:6: 3617 | wg(4)=0.0387991925696270495968019364463476920332d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3619:2: 3619 | wg(6)=0.0574931562176190664817216894020561287971d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3624:2: 3624 | wg(11)=0.0921225222377861287176327070876187671969d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3625:2: 3625 | wg(12)=0.0963687371746442596394686263518098650964d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3626:2: 3626 | wg(13)=0.0995934205867952670627802821035694765299d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3627:2: 3627 | wg(14)=0.101762389748405504596428952168554044633d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3628:2: 3628 | wg(15)=0.102852652893558840341285636705415043868d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3632:6: 3632 | xgk(1)=0.999484410050490637571325895705810819469d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3633:6: 3633 | xgk(2)=0.996893484074649540271630050918695283341d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3634:6: 3634 | xgk(3)=0.991630996870404594858628366109485724851d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3635:6: 3635 | xgk(4)=0.983668123279747209970032581605662801940d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3636:6: 3636 | xgk(5)=0.973116322501126268374693868423706884888d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3637:6: 3637 | xgk(6)=0.960021864968307512216871025581797662930d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3638:6: 3638 | xgk(7)=0.944374444748559979415831324037439121586d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3642:2: 3642 | xgk(11)=0.857205233546061098958658510658943856821d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3643:2: 3643 | xgk(12)=0.829565762382768397442898119732501916439d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3644:2: 3644 | xgk(13)=0.799727835821839083013668942322683240736d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3645:2: 3645 | xgk(14)=0.767777432104826194917977340974503131695d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3646:2: 3646 | xgk(15)=0.733790062453226804726171131369527645669d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3647:2: 3647 | xgk(16)=0.697850494793315796932292388026640068382d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3648:2: 3648 | xgk(17)=0.660061064126626961370053668149270753038d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3649:2: 3649 | xgk(18)=0.620526182989242861140477556431189299207d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3650:2: 3650 | xgk(19)=0.579345235826361691756024932172540495907d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3651:2: 3651 | xgk(20)=0.536624148142019899264169793311072794164d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3652:2: 3652 | xgk(21)=0.492480467861778574993693061207708795644d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3653:2: 3653 | xgk(22)=0.447033769538089176780609900322854000162d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3654:2: 3654 | xgk(23)=0.400401254830394392535476211542660633611d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3655:2: 3655 | xgk(24)=0.352704725530878113471037207089373860654d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3656:2: 3656 | xgk(25)=0.304073202273625077372677107199256553531d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3657:2: 3657 | xgk(26)=0.254636926167889846439805129817805107883d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3658:2: 3658 | xgk(27)=0.204525116682309891438957671002024709524d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3659:2: 3659 | xgk(28)=0.153869913608583546963794672743255920419d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3660:2: 3660 | xgk(29)=0.102806937966737030147096751318000592472d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3661:2: 3661 | xgk(30)=0.0514718425553176958330252131667225737491d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3662:6: 3662 | xgk(31)=0.000000000000000000000000000000000d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3664:6: 3664 | wgk(1)=0.00138901369867700762455159122675969968105d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3665:6: 3665 | wgk(2)=0.00389046112709988405126720184451550327852d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3666:6: 3666 | wgk(3)=0.00663070391593129217331982636975016813363d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3667:6: 3667 | wgk(4)=0.00927327965951776342844114689202436042127d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3668:6: 3668 | wgk(5)=0.0118230152534963417422328988532505928963d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3669:6: 3669 | wgk(6)=0.0143697295070458048124514324435800101958d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3670:6: 3670 | wgk(7)=0.0169208891890532726275722894203220923686d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3671:6: 3671 | wgk(8)=0.0194141411939423811734089510501284558514d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3672:2: 3672 | wgk(9)=0.0218280358216091922971674857383389934015d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3673:2: 3673 | wgk(10)=0.0241911620780806013656863707252320267604d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3674:2: 3674 | wgk(11)=0.0265099548823331016106017093350754143665d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3675:2: 3675 | wgk(12)=0.0287540487650412928439787853543342111447d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3676:2: 3676 | wgk(13)=0.0309072575623877624728842529430922726353d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3677:2: 3677 | wgk(14)=0.0329814470574837260318141910168539275106d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3678:2: 3678 | wgk(15)=0.0349793380280600241374996707314678750972d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3679:2: 3679 | wgk(16)=0.0368823646518212292239110656171359677370d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3680:2: 3680 | wgk(17)=0.0386789456247275929503486515322810502509d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3681:2: 3681 | wgk(18)=0.0403745389515359591119952797524681142161d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3682:2: 3682 | wgk(19)=0.0419698102151642461471475412859697577901d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3683:2: 3683 | wgk(20)=0.0434525397013560693168317281170732580746d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3684:2: 3684 | wgk(21)=0.0448148001331626631923555516167232437574d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3685:2: 3685 | wgk(22)=0.0460592382710069881162717355593735805947d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3686:2: 3686 | wgk(23)=0.0471855465692991539452614781810994864829d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3687:2: 3687 | wgk(24)=0.0481858617570871291407794922983045926058d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3688:2: 3688 | wgk(25)=0.0490554345550297788875281653672381736059d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3689:2: 3689 | wgk(26)=0.0497956834270742063578115693799423285392d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3690:2: 3690 | wgk(27)=0.0504059214027823468408930856535850289022d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3691:2: 3691 | wgk(28)=0.0508817958987496064922974730498046918534d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3692:2: 3692 | wgk(29)=0.0512215478492587721706562826049442082511d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3693:2: 3693 | wgk(30)=0.0514261285374590259338628792157812598296d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3694:2: 3694 | wgk(31)=0.0514947294294515675583404336470993075327d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3703:6: 3703 | resg = 0 ! init at 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3711:17: 3711 | jtw = j*2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3712:17: 3712 | dx=xr*xgk(jtw) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3713:17: 3713 | xx = xm+dx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3714:17: 3714 | call fonct(xx,the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3715:17: 3715 | call fonct(xx,the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3716:17: 3716 | call fonct(xx,the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3717:17: 3717 | f1 = (su01**v01)*(su02**v02)*ri01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3718:17: 3718 | xx = xm-dx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3719:17: 3719 | call fonct(xx,the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3720:17: 3720 | call fonct(xx,the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3721:17: 3721 | call fonct(xx,the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3722:17: 3722 | f2 = (su01**v01)*(su02**v02)*ri01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3723:17: 3723 | fv1(jtw) = f1 ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3724:17: 3724 | fv2(jtw) = f2 ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3725:2: 3725 | resg = resg+wg(j)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3729:2: 3729 | do j=1,15 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3730:2: 3730 | jtwm1 = j*2-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3744:2: 3744 | resk = resk + wgk(jtwm1)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3749:2: 3749 | reskh = resk*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3752:10: 3752 | resasc = resasc+wgk(j)*(dabs(fv1(j)-reskh)+dabs(fv2(j)-reskh)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3753:6: 3753 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3755:6: 3755 | res = resk*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3756:2: 3756 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3767:2: 3767 | use commun,only:zi01,zi12,zi02,nz01,nz12,nz02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3778:2: 3778 | double precision,dimension(15)::wg | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3781:2: 3781 | dimension fv1(30),fv2(30) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3783:5: 3783 | D1MACH(1)=2.23D-308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3784:6: 3784 | D1MACH(2)=1.79D+308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3785:6: 3785 | D1MACH(3)=1.11D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3786:6: 3786 | D1MACH(4)=2.22D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3787:6: 3787 | D1MACH(5)=0.301029995663981195D0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3789:6: 3789 | epmach = d1mach(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3790:6: 3790 | uflow = d1mach(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3792:2: 3792 | wg(1)=0.00796819249616660561546588347467362245048d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3793:5: 3793 | wg(2)=0.0184664683110909591423021319120472690962d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3794:6: 3794 | wg(3)=0.0287847078833233693497191796112920436396d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3795:6: 3795 | wg(4)=0.0387991925696270495968019364463476920332d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3797:2: 3797 | wg(6)=0.0574931562176190664817216894020561287971d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3802:2: 3802 | wg(11)=0.0921225222377861287176327070876187671969d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3803:2: 3803 | wg(12)=0.0963687371746442596394686263518098650964d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3804:2: 3804 | wg(13)=0.0995934205867952670627802821035694765299d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3805:2: 3805 | wg(14)=0.101762389748405504596428952168554044633d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3806:2: 3806 | wg(15)=0.102852652893558840341285636705415043868d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3810:6: 3810 | xgk(1)=0.999484410050490637571325895705810819469d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3811:6: 3811 | xgk(2)=0.996893484074649540271630050918695283341d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3812:6: 3812 | xgk(3)=0.991630996870404594858628366109485724851d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3813:6: 3813 | xgk(4)=0.983668123279747209970032581605662801940d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3814:6: 3814 | xgk(5)=0.973116322501126268374693868423706884888d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3815:6: 3815 | xgk(6)=0.960021864968307512216871025581797662930d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3816:6: 3816 | xgk(7)=0.944374444748559979415831324037439121586d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3820:2: 3820 | xgk(11)=0.857205233546061098958658510658943856821d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3821:2: 3821 | xgk(12)=0.829565762382768397442898119732501916439d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3822:2: 3822 | xgk(13)=0.799727835821839083013668942322683240736d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3823:2: 3823 | xgk(14)=0.767777432104826194917977340974503131695d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3824:2: 3824 | xgk(15)=0.733790062453226804726171131369527645669d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3825:2: 3825 | xgk(16)=0.697850494793315796932292388026640068382d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3826:2: 3826 | xgk(17)=0.660061064126626961370053668149270753038d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3827:2: 3827 | xgk(18)=0.620526182989242861140477556431189299207d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3828:2: 3828 | xgk(19)=0.579345235826361691756024932172540495907d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3829:2: 3829 | xgk(20)=0.536624148142019899264169793311072794164d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3830:2: 3830 | xgk(21)=0.492480467861778574993693061207708795644d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3831:2: 3831 | xgk(22)=0.447033769538089176780609900322854000162d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3832:2: 3832 | xgk(23)=0.400401254830394392535476211542660633611d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3833:2: 3833 | xgk(24)=0.352704725530878113471037207089373860654d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3834:2: 3834 | xgk(25)=0.304073202273625077372677107199256553531d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3835:2: 3835 | xgk(26)=0.254636926167889846439805129817805107883d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3836:2: 3836 | xgk(27)=0.204525116682309891438957671002024709524d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3837:2: 3837 | xgk(28)=0.153869913608583546963794672743255920419d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3838:2: 3838 | xgk(29)=0.102806937966737030147096751318000592472d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3839:2: 3839 | xgk(30)=0.0514718425553176958330252131667225737491d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3840:6: 3840 | xgk(31)=0.000000000000000000000000000000000d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3842:6: 3842 | wgk(1)=0.00138901369867700762455159122675969968105d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3843:6: 3843 | wgk(2)=0.00389046112709988405126720184451550327852d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3844:6: 3844 | wgk(3)=0.00663070391593129217331982636975016813363d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3845:6: 3845 | wgk(4)=0.00927327965951776342844114689202436042127d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3846:6: 3846 | wgk(5)=0.0118230152534963417422328988532505928963d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3847:6: 3847 | wgk(6)=0.0143697295070458048124514324435800101958d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3848:6: 3848 | wgk(7)=0.0169208891890532726275722894203220923686d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3849:6: 3849 | wgk(8)=0.0194141411939423811734089510501284558514d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3850:2: 3850 | wgk(9)=0.0218280358216091922971674857383389934015d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3851:2: 3851 | wgk(10)=0.0241911620780806013656863707252320267604d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3852:2: 3852 | wgk(11)=0.0265099548823331016106017093350754143665d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3853:2: 3853 | wgk(12)=0.0287540487650412928439787853543342111447d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3854:2: 3854 | wgk(13)=0.0309072575623877624728842529430922726353d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3855:2: 3855 | wgk(14)=0.0329814470574837260318141910168539275106d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3856:2: 3856 | wgk(15)=0.0349793380280600241374996707314678750972d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3857:2: 3857 | wgk(16)=0.0368823646518212292239110656171359677370d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3858:2: 3858 | wgk(17)=0.0386789456247275929503486515322810502509d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3859:2: 3859 | wgk(18)=0.0403745389515359591119952797524681142161d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3860:2: 3860 | wgk(19)=0.0419698102151642461471475412859697577901d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3861:2: 3861 | wgk(20)=0.0434525397013560693168317281170732580746d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3862:2: 3862 | wgk(21)=0.0448148001331626631923555516167232437574d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3863:2: 3863 | wgk(22)=0.0460592382710069881162717355593735805947d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3864:2: 3864 | wgk(23)=0.0471855465692991539452614781810994864829d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3865:2: 3865 | wgk(24)=0.0481858617570871291407794922983045926058d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3866:2: 3866 | wgk(25)=0.0490554345550297788875281653672381736059d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3867:2: 3867 | wgk(26)=0.0497956834270742063578115693799423285392d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3868:2: 3868 | wgk(27)=0.0504059214027823468408930856535850289022d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3869:2: 3869 | wgk(28)=0.0508817958987496064922974730498046918534d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3870:2: 3870 | wgk(29)=0.0512215478492587721706562826049442082511d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3871:2: 3871 | wgk(30)=0.0514261285374590259338628792157812598296d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3872:2: 3872 | wgk(31)=0.0514947294294515675583404336470993075327d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3881:6: 3881 | resg = 0 ! init at 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3887:2: 3887 | jtw = j*2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3901:2: 3901 | resg = resg+wg(j)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3905:2: 3905 | do j=1,15 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3906:2: 3906 | jtwm1 = j*2-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3920:2: 3920 | resk = resk + wgk(jtwm1)*(f1+f2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3927:10: 3927 | resasc = resasc+wgk(j)*(dabs(fv1(j)-reskh)+dabs(fv2(j)-reskh)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3928:6: 3928 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3953:2: 3953 | resabs01num,resk01num,reskh01num,resasc01num,resg01num,res01num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3954:2: 3954 | resabs02num,resk02num,reskh02num,resasc02num,resg02num,res02num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3955:2: 3955 | resabs12num,resk12num,reskh12num,resasc12num,resg12num,res12num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3956:2: 3956 | resabs0101num,resk0101num,reskh0101num,resasc0101num,resg0101num,res0101num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3957:2: 3957 | resabs0102num,resk0102num,reskh0102num,resasc0102num,resg0102num,res0102num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3958:2: 3958 | resabs0112num,resk0112num,reskh0112num,resasc0112num,resg0112num,res0112num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3959:2: 3959 | resabs0202num,resk0202num,reskh0202num,resasc0202num,resg0202num,res0202num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3960:2: 3960 | resabs0212num,resk0212num,reskh0212num,resasc0212num,resg0212num,res0212num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3961:2: 3961 | resabs1212num,resk1212num,reskh1212num,resasc1212num,resg1212num,res1212num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3962:2: 3962 | v01,v02,v12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3964:2: 3964 | f10101num,f10102num,f10112num,f10202num,f10212num,f11212num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3965:2: 3965 | f201num, f202num, f212num, f20101num,f20102num,f20112num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3966:2: 3966 | f20202num,f20212num,f21212num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3967:2: 3967 | su01,ri01,ri12,su12,su02,ri02,fv1denum,fv2denum, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3968:2: 3968 | fv101num,fv102num,fv112num,fv201num,fv202num,fv212num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3969:2: 3969 | fv10101num,fv20101num, fv10102num,fv20102num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3970:2: 3970 | fv10112num,fv20112num, fv10202num,fv20202num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3971:2: 3971 | fv10212num,fv20212num, fv11212num,fv21212num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3972:2: 3972 | d1mach(5),epmach,uflow,fcdenum,fc01num,fc02num,fc12num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3973:2: 3973 | fc0101num,fc0102num,fc0112num,fc0202num,fc0212num,fc1212num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3978:2: 3978 | double precision,dimension(4)::wg | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3979:2: 3979 | save wgk,xgk | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3981:2: 3981 | dimension fv1denum(7),fv2denum(7),fv101num(7),fv201num(7), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3982:2: 3982 | fv102num(7),fv202num(7), fv112num(7),fv212num(7), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3983:2: 3983 | fv10101num(7),fv20101num(7),fv10102num(7),fv20102num(7),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3984:2: 3984 | fv10112num(7),fv20112num(7),fv10202num(7),fv20202num(7),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3985:2: 3985 | fv10212num(7),fv20212num(7),fv11212num(7),fv21212num(7) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3987:5: 3987 | D1MACH(1)=2.23D-308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3988:6: 3988 | D1MACH(2)=1.79D+308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3989:6: 3989 | D1MACH(3)=1.11D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3990:6: 3990 | D1MACH(4)=2.22D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3991:6: 3991 | D1MACH(5)=0.301029995663981195D0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3993:6: 3993 | epmach = d1mach(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3994:6: 3994 | uflow = d1mach(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3996:2: 3996 | wg(1)=0.129484966168869693270611432679082d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3997:5: 3997 | wg(2)=0.279705391489276667901467771423780d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3998:6: 3998 | wg(3)=0.381830050505118944950369775488975d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:3999:6: 3999 | wg(4)=0.417959183673469387755102040816327d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4001:6: 4001 | xgk(1)=0.991455371120812639206854697526329d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4002:6: 4002 | xgk(2)=0.949107912342758524526189684047851d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4003:6: 4003 | xgk(3)=0.864864423359769072789712788640926d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4004:6: 4004 | xgk(4)=0.741531185599394439863864773280788d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4005:6: 4005 | xgk(5)=0.586087235467691130294144838258730d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4006:6: 4006 | xgk(6)=0.405845151377397166906606412076961d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4007:6: 4007 | xgk(7)=0.207784955007898467600689403773245d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4008:6: 4008 | xgk(8)=0.000000000000000000000000000000000d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4010:6: 4010 | wgk(1)=0.022935322010529224963732008058970d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4011:6: 4011 | wgk(2)=0.063092092629978553290700663189204d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4012:6: 4012 | wgk(3)=0.104790010322250183839876322541518d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4013:6: 4013 | wgk(4)=0.140653259715525918745189590510238d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4014:6: 4014 | wgk(5)=0.169004726639267902826583426598550d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4015:6: 4015 | wgk(6)=0.190350578064785409913256402421014d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4016:6: 4016 | wgk(7)=0.204432940075298892414161999234649d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4017:6: 4017 | wgk(8)=0.209482141084727828012999174891714d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4019:2: 4019 | xm = 0.5d+00*(b+a) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4023:2: 4023 | res01num = 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4024:2: 4024 | res02num = 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4025:2: 4025 | res12num = 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4027:2: 4027 | res0101num = 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4028:2: 4028 | res0102num = 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4029:2: 4029 | res0112num = 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4030:2: 4030 | res0202num = 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4031:2: 4031 | res0212num = 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4032:2: 4032 | res1212num = 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4034:6: 4034 | call fonct(xm,the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4035:6: 4035 | call fonct(xm,the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4036:5: 4036 | call fonct(xm,the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4037:6: 4037 | fcdenum =(su01**v01)*(su02**v02)*ri01*v01/(su12**v12) ! valeur fct f au milieu de intervalle (a,b), cas pnt 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4038:6: 4038 | fc01num=(su01**v01)*(su02**v02)*ri01*v01*(1-(gl01*v01))/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4039:2: 4039 | fc02num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4040:2: 4040 | fc12num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4043:2: 4043 | fc0101num=(su01**v01)*(su02**v02)*ri01*v01*(((1-gl01*v01)**2)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4044:2: 4044 | gl01*v01)/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4045:2: 4045 | fc0102num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4046:2: 4046 | fc0112num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12*gl01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4047:2: 4047 | fc0202num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl02*v02/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4048:2: 4048 | fc0212num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4049:2: 4049 | fc1212num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4051:6: 4051 | resgdenum = fcdenum*wg(4) ! init res Gauss ! fc * 4e poids Gauss | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4052:10: 4052 | reskdenum = fcdenum*wgk(8) ! init res Kronrod ! fc * 8e poids Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4053:10: 4053 | resabsdenum = dabs(reskdenum) ! init res absolue Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4055:2: 4055 | resg01num = fc01num*wg(4) ! init res Gauss ! fc * 4e poids Gauss | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4056:10: 4056 | resk01num = fc01num*wgk(8) ! init res Kronrod ! fc * 8e poids Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4057:10: 4057 | resabs01num = dabs(resk01num) ! init res absolue Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4059:2: 4059 | resg02num = fc02num*wg(4) ! init res Gauss ! fc * 4e poids Gauss | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4060:10: 4060 | resk02num = fc02num*wgk(8) ! init res Kronrod ! fc * 8e poids Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4061:10: 4061 | resabs02num = dabs(resk02num) ! init res absolue Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4063:2: 4063 | resg12num = fc12num*wg(4) ! init res Gauss ! fc * 4e poids Gauss | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4064:10: 4064 | resk12num = fc12num*wgk(8) ! init res Kronrod ! fc * 8e poids Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4065:10: 4065 | resabs12num = dabs(resk12num) ! init res absolue Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4067:2: 4067 | resg0101num = fc0101num*wg(4) ! init res Gauss ! fc * 4e poids Gauss | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4068:10: 4068 | resk0101num = fc0101num*wgk(8) ! init res Kronrod ! fc * 8e poids Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4069:10: 4069 | resabs0101num = dabs(resk0101num) ! init res absolue Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4071:2: 4071 | resg0102num = fc0102num*wg(4) ! init res Gauss ! fc * 4e poids Gauss | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4072:10: 4072 | resk0102num = fc0102num*wgk(8) ! init res Kronrod ! fc * 8e poids Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4073:10: 4073 | resabs0102num = dabs(resk0102num) ! init res absolue Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4075:2: 4075 | resg0112num = fc0112num*wg(4) ! init res Gauss ! fc * 4e poids Gauss | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4076:10: 4076 | resk0112num = fc0112num*wgk(8) ! init res Kronrod ! fc * 8e poids Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4077:10: 4077 | resabs0112num = dabs(resk0112num) ! init res absolue Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4079:2: 4079 | resg0202num = fc0202num*wg(4) ! init res Gauss ! fc * 4e poids Gauss | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4080:10: 4080 | resk0202num = fc0202num*wgk(8) ! init res Kronrod ! fc * 8e poids Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4081:10: 4081 | resabs0202num = dabs(resk0202num) ! init res absolue Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4083:2: 4083 | resg0212num = fc0212num*wg(4) ! init res Gauss ! fc * 4e poids Gauss | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4084:10: 4084 | resk0212num = fc0212num*wgk(8) ! init res Kronrod ! fc * 8e poids Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4085:10: 4085 | resabs0212num = dabs(resk0212num) ! init res absolue Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4088:2: 4088 | resg1212num = fc1212num*wg(4) ! init res Gauss ! fc * 4e poids Gauss | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4089:10: 4089 | resk1212num = fc1212num*wgk(8) ! init res Kronrod ! fc * 8e poids Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4090:10: 4090 | resabs1212num = dabs(resk1212num) ! init res absolue Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4097:2: 4097 | do j=1,3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4098:2: 4098 | jtw = j*2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4099:17: 4099 | dx=xr*xgk(jtw) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4100:17: 4100 | xx = xm+dx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4101:17: 4101 | call fonct(xx,the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4102:17: 4102 | call fonct(xx,the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4103:2: 4103 | call fonct(xx,the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4105:2: 4105 | f101num=(su01**v01)*(su02**v02)*ri01*v01*(1-(gl01*v01))/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4106:2: 4106 | f102num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4107:2: 4107 | f112num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4109:2: 4109 | f10101num=(su01**v01)*(su02**v02)*ri01*v01*(((1-gl01*v01)**2)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4110:2: 4110 | gl01*v01)/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4111:2: 4111 | f10102num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4112:2: 4112 | f10112num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12*gl01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4113:2: 4113 | f10202num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl02*v02/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4114:2: 4114 | f10212num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4115:2: 4115 | f11212num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4118:17: 4118 | xx = xm-dx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4119:17: 4119 | call fonct(xx,the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4120:17: 4120 | call fonct(xx,the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4121:2: 4121 | call fonct(xx,the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4123:2: 4123 | f201num=(su01**v01)*(su02**v02)*ri01*v01*(1-(gl01*v01))/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4124:2: 4124 | f202num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4125:2: 4125 | f212num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4127:2: 4127 | f20101num=(su01**v01)*(su02**v02)*ri01*v01*(((1-gl01*v01)**2)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4128:2: 4128 | gl01*v01)/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4129:2: 4129 | f20102num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4130:2: 4130 | f20112num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12*gl01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4131:2: 4131 | f20202num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl02*v02/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4132:2: 4132 | f20212num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4133:2: 4133 | f21212num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4136:17: 4136 | fv1denum(jtw) = f1denum ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4137:17: 4137 | fv2denum(jtw) = f2denum ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4139:2: 4139 | resgdenum = resgdenum+wg(j)*(f1denum+f2denum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4140:17: 4140 | reskdenum = reskdenum + wgk(jtw)*(f1denum+f2denum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4141:17: 4141 | resabsdenum = resabsdenum + wgk(jtw)*(dabs(f1denum)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4142:17: 4142 | dabs(f2denum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4144:2: 4144 | fv101num(jtw) = f101num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4145:17: 4145 | fv201num(jtw) = f201num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4147:2: 4147 | resg01num = resg01num+wg(j)*(f101num+f201num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4148:17: 4148 | resk01num = resk01num + wgk(jtw)*(f101num+f201num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4149:17: 4149 | resabs01num = resabs01num + wgk(jtw)*(dabs(f101num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4150:17: 4150 | dabs(f201num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4152:2: 4152 | fv102num(jtw) = f102num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4153:17: 4153 | fv202num(jtw) = f202num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4155:2: 4155 | resg02num = resg02num+wg(j)*(f102num+f202num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4156:17: 4156 | resk02num = resk02num + wgk(jtw)*(f102num+f202num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4157:17: 4157 | resabs02num = resabs02num + wgk(jtw)*(dabs(f102num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4158:17: 4158 | dabs(f202num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4160:2: 4160 | fv112num(jtw) = f112num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4161:17: 4161 | fv212num(jtw) = f212num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4163:2: 4163 | resg12num = resg12num+wg(j)*(f112num+f212num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4164:17: 4164 | resk12num = resk12num + wgk(jtw)*(f112num+f212num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4165:17: 4165 | resabs12num = resabs12num + wgk(jtw)*(dabs(f112num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4166:17: 4166 | dabs(f212num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4168:2: 4168 | fv10101num(jtw) = f10101num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4169:17: 4169 | fv20101num(jtw) = f20101num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4171:2: 4171 | resg0101num = resg0101num+wg(j)*(f10101num+f20101num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4172:17: 4172 | resk0101num = resk0101num + wgk(jtw)*(f10101num+f20101num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4173:17: 4173 | resabs0101num = resabs0101num + wgk(jtw)*(dabs(f10101num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4174:17: 4174 | dabs(f20101num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4176:2: 4176 | fv10102num(jtw) = f10102num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4177:17: 4177 | fv20102num(jtw) = f20102num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4179:2: 4179 | resg0102num = resg0102num+wg(j)*(f10102num+f20102num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4180:17: 4180 | resk0102num = resk0102num + wgk(jtw)*(f10102num+f20102num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4181:17: 4181 | resabs0102num = resabs0102num + wgk(jtw)*(dabs(f10102num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4182:17: 4182 | dabs(f20102num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4184:2: 4184 | fv10112num(jtw) = f10112num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4185:17: 4185 | fv20112num(jtw) = f20112num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4187:2: 4187 | resg0112num = resg0112num+wg(j)*(f10112num+f20112num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4188:17: 4188 | resk0112num = resk0112num + wgk(jtw)*(f10112num+f20112num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4189:17: 4189 | resabs0112num = resabs0112num + wgk(jtw)*(dabs(f10112num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4190:17: 4190 | dabs(f20112num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4192:2: 4192 | fv10202num(jtw) = f10202num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4193:17: 4193 | fv20202num(jtw) = f20202num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4195:2: 4195 | resg0202num = resg0202num+wg(j)*(f10202num+f20202num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4196:17: 4196 | resk0202num = resk0202num + wgk(jtw)*(f10202num+f20202num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4197:17: 4197 | resabs0202num = resabs0202num + wgk(jtw)*(dabs(f10202num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4198:17: 4198 | dabs(f20202num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4200:2: 4200 | fv10212num(jtw) = f10212num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4201:17: 4201 | fv20212num(jtw) = f20212num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4203:2: 4203 | resg0212num = resg0212num+wg(j)*(f10212num+f20212num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4204:17: 4204 | resk0212num = resk0212num + wgk(jtw)*(f10212num+f20212num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4205:17: 4205 | resabs0212num = resabs0212num + wgk(jtw)*(dabs(f10212num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4206:17: 4206 | dabs(f20212num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4208:2: 4208 | fv11212num(jtw) = f11212num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4209:17: 4209 | fv21212num(jtw) = f21212num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4211:2: 4211 | resg1212num = resg1212num+wg(j)*(f11212num+f21212num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4212:17: 4212 | resk1212num = resk1212num + wgk(jtw)*(f11212num+f21212num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4213:17: 4213 | resabs1212num = resabs1212num + wgk(jtw)*(dabs(f11212num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4214:17: 4214 | dabs(f21212num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4217:11: 4217 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4218:2: 4218 | do j=1,4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4219:2: 4219 | jtwm1 = j*2-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4220:17: 4220 | dx=xr*xgk(jtwm1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4221:17: 4221 | xx = xm+dx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4222:17: 4222 | call fonct(xx,the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4223:17: 4223 | call fonct(xx,the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4224:2: 4224 | call fonct(xx,the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4225:8: 4225 | f1denum =(su01**v01)*(su02**v02)*ri01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4226:2: 4226 | f101num=(su01**v01)*(su02**v02)*ri01*v01*(1-(gl01*v01))/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4227:2: 4227 | f102num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4228:2: 4228 | f112num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4231:2: 4231 | f10101num=(su01**v01)*(su02**v02)*ri01*v01*(((1-gl01*v01)**2)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4232:2: 4232 | gl01*v01)/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4233:2: 4233 | f10102num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4234:2: 4234 | f10112num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12*gl01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4235:2: 4235 | f10202num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl02*v02/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4236:2: 4236 | f10212num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4237:2: 4237 | f11212num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4240:17: 4240 | xx = xm-dx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4241:17: 4241 | call fonct(xx,the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4242:17: 4242 | call fonct(xx,the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4243:2: 4243 | call fonct(xx,the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4244:8: 4244 | f2denum =(su01**v01)*(su02**v02)*ri01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4245:2: 4245 | f201num=(su01**v01)*(su02**v02)*ri01*v01*(1-(gl01*v01))/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4246:2: 4246 | f202num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4247:2: 4247 | f212num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4249:2: 4249 | f20101num=(su01**v01)*(su02**v02)*ri01*v01*(((1-gl01*v01)**2)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4250:2: 4250 | gl01*v01)/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4251:2: 4251 | f20101num=(su01**v01)*(su02**v02)*ri01*v01*(((1-gl01*v01)**2)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4252:2: 4252 | gl01*v01)/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4253:2: 4253 | f20102num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4254:2: 4254 | f20112num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12*gl01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4255:2: 4255 | f20202num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl02*v02/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4256:2: 4256 | f20212num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4257:2: 4257 | f21212num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4260:17: 4260 | fv1denum(jtwm1) = f1denum ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4261:17: 4261 | fv2denum(jtwm1) = f2denum ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4262:2: 4262 | reskdenum = reskdenum + wgk(jtwm1)*(f1denum+f2denum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4263:17: 4263 | resabsdenum = resabsdenum + wgk(jtwm1)*(dabs(f1denum)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4264:17: 4264 | dabs(f2denum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4266:2: 4266 | fv101num(jtwm1) = f101num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4267:17: 4267 | fv201num(jtwm1) = f201num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4268:2: 4268 | resk01num = resk01num + wgk(jtwm1)*(f101num+f201num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4269:17: 4269 | resabs01num = resabs01num + wgk(jtwm1)*(dabs(f101num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4270:17: 4270 | dabs(f201num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4272:2: 4272 | fv102num(jtwm1) = f102num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4273:17: 4273 | fv202num(jtwm1) = f202num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4274:2: 4274 | resk02num = resk02num + wgk(jtwm1)*(f102num+f202num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4275:17: 4275 | resabs02num = resabs02num + wgk(jtwm1)*(dabs(f102num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4276:17: 4276 | dabs(f202num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4278:2: 4278 | fv112num(jtwm1) = f112num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4279:17: 4279 | fv212num(jtwm1) = f212num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4280:2: 4280 | resk12num = resk12num + wgk(jtwm1)*(f112num+f212num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4281:17: 4281 | resabs12num = resabs12num + wgk(jtwm1)*(dabs(f112num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4282:17: 4282 | dabs(f212num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4284:2: 4284 | fv10101num(jtwm1) = f10101num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4285:17: 4285 | fv20101num(jtwm1) = f20101num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4286:17: 4286 | resk0101num = resk0101num + wgk(jtwm1)*(f10101num+f20101num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4287:17: 4287 | resabs0101num = resabs0101num + wgk(jtwm1)*(dabs(f10101num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4288:17: 4288 | dabs(f20101num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4291:2: 4291 | fv10102num(jtwm1) = f10102num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4292:17: 4292 | fv20102num(jtwm1) = f20102num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4293:17: 4293 | resk0102num = resk0102num + wgk(jtwm1)*(f10102num+f20102num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4294:17: 4294 | resabs0102num = resabs0102num + wgk(jtwm1)*(dabs(f10102num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4295:17: 4295 | dabs(f20102num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4297:2: 4297 | fv10112num(jtwm1) = f10112num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4298:17: 4298 | fv20112num(jtwm1) = f20112num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4299:17: 4299 | resk0112num = resk0112num + wgk(jtwm1)*(f10112num+f20112num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4300:17: 4300 | resabs0112num = resabs0112num + wgk(jtwm1)*(dabs(f10112num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4301:17: 4301 | dabs(f20112num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4303:2: 4303 | fv10202num(jtwm1) = f10202num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4304:17: 4304 | fv20202num(jtwm1) = f20202num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4305:17: 4305 | resk0202num = resk0202num + wgk(jtwm1)*(f10202num+f20202num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4306:17: 4306 | resabs0202num = resabs0202num + wgk(jtwm1)*(dabs(f10202num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4307:17: 4307 | dabs(f20202num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4309:2: 4309 | fv10212num(jtwm1) = f10212num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4310:17: 4310 | fv20212num(jtwm1) = f20212num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4311:17: 4311 | resk0212num = resk0212num + wgk(jtwm1)*(f10212num+f20212num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4312:17: 4312 | resabs0212num = resabs0212num + wgk(jtwm1)*(dabs(f10212num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4313:17: 4313 | dabs(f20212num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4315:2: 4315 | fv11212num(jtwm1) = f11212num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4316:17: 4316 | fv21212num(jtwm1) = f21212num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4317:17: 4317 | resk1212num = resk1212num + wgk(jtwm1)*(f11212num+f21212num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4318:17: 4318 | resabs1212num = resabs1212num + wgk(jtwm1)*(dabs(f11212num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4319:17: 4319 | dabs(f21212num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4325:11: 4325 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4327:11: 4327 | reskhdenum = reskdenum*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4328:11: 4328 | resascdenum = wgk(8)*dabs(fcdenum-reskhdenum) ! init ! w8 * abs(fc - res Kronrod / 2 ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4331:11: 4331 | reskh01num = resk01num*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4332:11: 4332 | resasc01num = wgk(8)*dabs(fc01num-reskh01num) ! init ! w8 * abs(fc - res Kronrod / 2 ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4335:11: 4335 | reskh02num = resk02num*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4336:11: 4336 | resasc02num = wgk(8)*dabs(fc02num-reskh02num) ! init ! w8 * abs(fc - res Kronrod / 2 ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4339:11: 4339 | reskh12num = resk12num*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4340:11: 4340 | resasc12num = wgk(8)*dabs(fc12num-reskh12num) ! init ! w8 * abs(fc - res Kronrod / 2 ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4342:2: 4342 | reskh0101num = resk0101num*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4343:11: 4343 | resasc0101num = wgk(8)*dabs(fc0101num-reskh0101num) ! init ! w8 * abs(fc - res Kronrod / 2 ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4345:2: 4345 | reskh0102num = resk0102num*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4346:11: 4346 | resasc0102num = wgk(8)*dabs(fc0102num-reskh0102num) ! init ! w8 * abs(fc - res Kronrod / 2 ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4348:2: 4348 | reskh0112num = resk0112num*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4349:11: 4349 | resasc0112num = wgk(8)*dabs(fc0112num-reskh0112num) ! init ! w8 * abs(fc - res Kronrod / 2 ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4351:2: 4351 | reskh0202num = resk0202num*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4352:11: 4352 | resasc0202num = wgk(8)*dabs(fc0202num-reskh0202num) ! init ! w8 * abs(fc - res Kronrod / 2 ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4354:2: 4354 | reskh0212num = resk0212num*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4355:11: 4355 | resasc0212num = wgk(8)*dabs(fc0212num-reskh0212num) ! init ! w8 * abs(fc - res Kronrod / 2 ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4358:2: 4358 | reskh1212num = resk1212num*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4359:11: 4359 | resasc1212num = wgk(8)*dabs(fc1212num-reskh1212num) ! init ! w8 * abs(fc - res Kronrod / 2 ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4362:2: 4362 | do j=1,7 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4363:10: 4363 | resascdenum = resascdenum+wgk(j)*(dabs(fv1denum(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4364:10: 4364 | reskhdenum)+dabs(fv2denum(j)-reskhdenum)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4365:2: 4365 | resascdenum = resascdenum+wgk(j)*(dabs(fv1denum(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4366:2: 4366 | reskhdenum)+dabs(fv2denum(j)-reskhdenum)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4368:10: 4368 | resasc01num = resasc01num+wgk(j)*(dabs(fv101num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4369:10: 4369 | reskh01num)+dabs(fv201num(j)-reskh01num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4370:2: 4370 | resasc01num = resasc01num+wgk(j)*(dabs(fv101num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4371:2: 4371 | reskh01num)+dabs(fv201num(j)-reskh01num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4373:10: 4373 | resasc02num = resasc02num+wgk(j)*(dabs(fv102num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4374:10: 4374 | reskh02num)+dabs(fv202num(j)-reskh02num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4375:2: 4375 | resasc02num = resasc02num+wgk(j)*(dabs(fv102num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4376:2: 4376 | reskh02num)+dabs(fv202num(j)-reskh02num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4378:10: 4378 | resasc12num = resasc12num+wgk(j)*(dabs(fv112num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4379:10: 4379 | reskh12num)+dabs(fv212num(j)-reskh12num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4380:2: 4380 | resasc12num = resasc12num+wgk(j)*(dabs(fv112num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4381:2: 4381 | reskh12num)+dabs(fv212num(j)-reskh12num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4383:2: 4383 | resasc0101num = resasc0101num+wgk(j)*(dabs(fv10101num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4384:10: 4384 | reskh0101num)+dabs(fv20101num(j)-reskh0101num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4385:2: 4385 | resasc0101num = resasc0101num+wgk(j)*(dabs(fv10101num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4386:2: 4386 | reskh0101num)+dabs(fv20101num(j)-reskh0101num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4388:2: 4388 | resasc0102num = resasc0102num+wgk(j)*(dabs(fv10102num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4389:10: 4389 | reskh0102num)+dabs(fv20102num(j)-reskh0102num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4390:2: 4390 | resasc0102num = resasc0102num+wgk(j)*(dabs(fv10102num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4391:2: 4391 | reskh0102num)+dabs(fv20102num(j)-reskh0102num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4393:2: 4393 | resasc0112num = resasc0112num+wgk(j)*(dabs(fv10112num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4394:10: 4394 | reskh0112num)+dabs(fv20112num(j)-reskh0112num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4395:2: 4395 | resasc0112num = resasc0112num+wgk(j)*(dabs(fv10112num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4396:2: 4396 | reskh0112num)+dabs(fv20112num(j)-reskh0112num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4399:2: 4399 | resasc0202num = resasc0202num+wgk(j)*(dabs(fv10202num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4400:10: 4400 | reskh0202num)+dabs(fv20202num(j)-reskh0202num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4401:2: 4401 | resasc0202num = resasc0202num+wgk(j)*(dabs(fv10202num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4402:2: 4402 | reskh0202num)+dabs(fv20202num(j)-reskh0202num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4405:2: 4405 | resasc0212num = resasc0212num+wgk(j)*(dabs(fv10212num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4406:10: 4406 | reskh0212num)+dabs(fv20212num(j)-reskh0212num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4407:2: 4407 | resasc0212num = resasc0212num+wgk(j)*(dabs(fv10212num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4408:2: 4408 | reskh0212num)+dabs(fv20212num(j)-reskh0212num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4412:6: 4412 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4414:6: 4414 | resdenum = reskdenum*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4415:6: 4415 | res01num = resk01num*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4416:6: 4416 | res02num = resk02num*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4417:6: 4417 | res12num = resk12num*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4418:2: 4418 | res0101num = resk0101num*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4419:2: 4419 | res0102num = resk0102num*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4420:2: 4420 | res0112num = resk0112num*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4421:2: 4421 | res0202num = resk0202num*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4422:2: 4422 | res0212num = resk0212num*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4423:2: 4423 | res1212num = resk1212num*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4434:2: 4434 | res01num,res02num,res12num,res0101num,res0102num,res0112num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4435:2: 4435 | res0202num,res0212num,res1212num,v01,v02,v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4442:2: 4442 | resabs01num,resk01num,reskh01num,resasc01num,resg01num,res01num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4443:2: 4443 | resabs02num,resk02num,reskh02num,resasc02num,resg02num,res02num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4444:2: 4444 | resabs12num,resk12num,reskh12num,resasc12num,resg12num,res12num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4445:2: 4445 | resabs0101num,resk0101num,reskh0101num,resasc0101num,resg0101num,res0101num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4446:2: 4446 | resabs0102num,resk0102num,reskh0102num,resasc0102num,resg0102num,res0102num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4447:2: 4447 | resabs0112num,resk0112num,reskh0112num,resasc0112num,resg0112num,res0112num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4448:2: 4448 | resabs0202num,resk0202num,reskh0202num,resasc0202num,resg0202num,res0202num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4449:2: 4449 | resabs0212num,resk0212num,reskh0212num,resasc0212num,resg0212num,res0212num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4450:2: 4450 | resabs1212num,resk1212num,reskh1212num,resasc1212num,resg1212num,res1212num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4451:2: 4451 | v01,v02,v12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4453:2: 4453 | f10101num,f10102num,f10112num,f10202num,f10212num,f11212num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4454:2: 4454 | f201num, f202num, f212num, f20101num,f20102num,f20112num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4455:2: 4455 | f20202num,f20212num,f21212num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4456:2: 4456 | su01,ri01,ri12,su12,su02,ri02,fv1denum,fv2denum, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4457:2: 4457 | fv101num,fv102num,fv112num,fv201num,fv202num,fv212num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4458:2: 4458 | fv10101num,fv20101num, fv10102num,fv20102num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4459:2: 4459 | fv10112num,fv20112num, fv10202num,fv20202num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4460:2: 4460 | fv10212num,fv20212num, fv11212num,fv21212num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4461:2: 4461 | d1mach(5),epmach,uflow,fcdenum,fc01num,fc02num,fc12num, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4462:2: 4462 | fc0101num,fc0102num,fc0112num,fc0202num,fc0212num,fc1212num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4467:2: 4467 | double precision,dimension(4)::wg | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4468:2: 4468 | save wgk,xgk | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4470:2: 4470 | dimension fv1denum(7),fv2denum(7),fv101num(7),fv201num(7), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4471:2: 4471 | fv102num(7),fv202num(7), fv112num(7),fv212num(7), & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4472:2: 4472 | fv10101num(7),fv20101num(7),fv10102num(7),fv20102num(7),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4473:2: 4473 | fv10112num(7),fv20112num(7),fv10202num(7),fv20202num(7),& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4474:2: 4474 | fv10212num(7),fv20212num(7),fv11212num(7),fv21212num(7) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4483:5: 4483 | D1MACH(1)=2.23D-308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4484:6: 4484 | D1MACH(2)=1.79D+308 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4485:6: 4485 | D1MACH(3)=1.11D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4486:6: 4486 | D1MACH(4)=2.22D-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4487:6: 4487 | D1MACH(5)=0.301029995663981195D0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4489:6: 4489 | epmach = d1mach(4) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4490:6: 4490 | uflow = d1mach(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4492:2: 4492 | wg(1)=0.129484966168869693270611432679082d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4493:5: 4493 | wg(2)=0.279705391489276667901467771423780d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4494:6: 4494 | wg(3)=0.381830050505118944950369775488975d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4495:6: 4495 | wg(4)=0.417959183673469387755102040816327d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4497:6: 4497 | xgk(1)=0.991455371120812639206854697526329d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4498:6: 4498 | xgk(2)=0.949107912342758524526189684047851d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4499:6: 4499 | xgk(3)=0.864864423359769072789712788640926d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4500:6: 4500 | xgk(4)=0.741531185599394439863864773280788d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4501:6: 4501 | xgk(5)=0.586087235467691130294144838258730d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4502:6: 4502 | xgk(6)=0.405845151377397166906606412076961d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4503:6: 4503 | xgk(7)=0.207784955007898467600689403773245d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4504:6: 4504 | xgk(8)=0.000000000000000000000000000000000d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4506:6: 4506 | wgk(1)=0.022935322010529224963732008058970d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4507:6: 4507 | wgk(2)=0.063092092629978553290700663189204d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4508:6: 4508 | wgk(3)=0.104790010322250183839876322541518d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4509:6: 4509 | wgk(4)=0.140653259715525918745189590510238d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4510:6: 4510 | wgk(5)=0.169004726639267902826583426598550d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4511:6: 4511 | wgk(6)=0.190350578064785409913256402421014d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4512:6: 4512 | wgk(7)=0.204432940075298892414161999234649d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4513:6: 4513 | wgk(8)=0.209482141084727828012999174891714d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4518:2: 4518 | xm = 0.5d+00*(b+a) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4522:2: 4522 | res01num = 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4523:2: 4523 | res02num = 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4524:2: 4524 | res12num = 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4526:2: 4526 | res0101num = 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4527:2: 4527 | res0102num = 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4528:2: 4528 | res0112num = 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4529:2: 4529 | res0202num = 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4530:2: 4530 | res0212num = 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4531:2: 4531 | res1212num = 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4533:6: 4533 | call susp(xm,the01,nz01,su01,ri01,zi01,gl01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4534:10: 4534 | call susp(xm,the02,nz02,su02,ri02,zi02,gl02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4535:10: 4535 | call susp(xm,the12,nz12,su12,ri12,zi12,gl12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4537:6: 4537 | fcdenum =(su01**v01)*(su02**v02)*ri01*v01/(su12**v12) ! valeur fct f au milieu de intervalle (a,b), cas pnt 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4538:6: 4538 | fc01num=(su01**v01)*(su02**v02)*ri01*v01*(1-(gl01*v01))/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4539:2: 4539 | fc02num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4540:2: 4540 | fc12num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4543:2: 4543 | fc0101num=(su01**v01)*(su02**v02)*ri01*v01*(((1-gl01*v01)**2)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4544:2: 4544 | gl01*v01)/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4545:2: 4545 | fc0102num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4546:2: 4546 | fc0112num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12*gl01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4547:2: 4547 | fc0202num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl02*v02/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4548:2: 4548 | fc0212num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4549:2: 4549 | fc1212num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4551:6: 4551 | resgdenum = fcdenum*wg(4) ! init res Gauss ! fc * 4e poids Gauss | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4552:10: 4552 | reskdenum = fcdenum*wgk(8) ! init res Kronrod ! fc * 8e poids Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4553:10: 4553 | resabsdenum = dabs(reskdenum) ! init res absolue Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4555:2: 4555 | resg01num = fc01num*wg(4) ! init res Gauss ! fc * 4e poids Gauss | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4556:10: 4556 | resk01num = fc01num*wgk(8) ! init res Kronrod ! fc * 8e poids Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4557:10: 4557 | resabs01num = dabs(resk01num) ! init res absolue Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4559:2: 4559 | resg02num = fc02num*wg(4) ! init res Gauss ! fc * 4e poids Gauss | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4560:10: 4560 | resk02num = fc02num*wgk(8) ! init res Kronrod ! fc * 8e poids Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4561:10: 4561 | resabs02num = dabs(resk02num) ! init res absolue Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4563:2: 4563 | resg12num = fc12num*wg(4) ! init res Gauss ! fc * 4e poids Gauss | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4564:10: 4564 | resk12num = fc12num*wgk(8) ! init res Kronrod ! fc * 8e poids Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4565:10: 4565 | resabs12num = dabs(resk12num) ! init res absolue Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4567:2: 4567 | resg0101num = fc0101num*wg(4) ! init res Gauss ! fc * 4e poids Gauss | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4568:10: 4568 | resk0101num = fc0101num*wgk(8) ! init res Kronrod ! fc * 8e poids Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4569:10: 4569 | resabs0101num = dabs(resk0101num) ! init res absolue Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4571:2: 4571 | resg0102num = fc0102num*wg(4) ! init res Gauss ! fc * 4e poids Gauss | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4572:10: 4572 | resk0102num = fc0102num*wgk(8) ! init res Kronrod ! fc * 8e poids Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4573:10: 4573 | resabs0102num = dabs(resk0102num) ! init res absolue Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4575:2: 4575 | resg0112num = fc0112num*wg(4) ! init res Gauss ! fc * 4e poids Gauss | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4576:10: 4576 | resk0112num = fc0112num*wgk(8) ! init res Kronrod ! fc * 8e poids Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4577:10: 4577 | resabs0112num = dabs(resk0112num) ! init res absolue Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4579:2: 4579 | resg0202num = fc0202num*wg(4) ! init res Gauss ! fc * 4e poids Gauss | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4580:10: 4580 | resk0202num = fc0202num*wgk(8) ! init res Kronrod ! fc * 8e poids Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4581:10: 4581 | resabs0202num = dabs(resk0202num) ! init res absolue Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4583:2: 4583 | resg0212num = fc0212num*wg(4) ! init res Gauss ! fc * 4e poids Gauss | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4584:10: 4584 | resk0212num = fc0212num*wgk(8) ! init res Kronrod ! fc * 8e poids Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4585:10: 4585 | resabs0212num = dabs(resk0212num) ! init res absolue Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4588:2: 4588 | resg1212num = fc1212num*wg(4) ! init res Gauss ! fc * 4e poids Gauss | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4589:10: 4589 | resk1212num = fc1212num*wgk(8) ! init res Kronrod ! fc * 8e poids Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4590:10: 4590 | resabs1212num = dabs(resk1212num) ! init res absolue Kronrod | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4597:2: 4597 | do j=1,3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4598:2: 4598 | jtw = j*2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4599:17: 4599 | dx=xr*xgk(jtw) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4600:17: 4600 | xx = xm+dx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4602:6: 4602 | call susp(xx,the01,nz01,su01,ri01,zi01,gl01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4603:10: 4603 | call susp(xx,the02,nz02,su02,ri02,zi02,gl02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4604:10: 4604 | call susp(xx,the12,nz12,su12,ri12,zi12,gl12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4606:2: 4606 | f101num=(su01**v01)*(su02**v02)*ri01*v01*(1-gl01*v01)/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4607:2: 4607 | f102num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4608:2: 4608 | f112num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4610:2: 4610 | f10101num=(su01**v01)*(su02**v02)*ri01*v01*(((1-gl01*v01)**2)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4611:2: 4611 | gl01*v01)/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4612:2: 4612 | f10102num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4613:2: 4613 | f10112num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12*gl01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4614:2: 4614 | f10202num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl02*v02/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4615:2: 4615 | f10212num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4616:2: 4616 | f11212num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4619:17: 4619 | xx = xm-dx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4620:17: 4620 | call susp(xx,the01,nz01,su01,ri01,zi01,gl01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4621:10: 4621 | call susp(xx,the02,nz02,su02,ri02,zi02,gl02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4622:10: 4622 | call susp(xx,the12,nz12,su12,ri12,zi12,gl12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4624:2: 4624 | f2denum =(su01**v01)*(su02**v02)*ri01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4625:2: 4625 | f201num=(su01**v01)*(su02**v02)*ri01*v01*(1-gl01*v01)/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4626:2: 4626 | f202num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4627:2: 4627 | f212num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4629:2: 4629 | f20101num=(su01**v01)*(su02**v02)*ri01*v01*(((1-gl01*v01)**2)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4630:2: 4630 | gl01*v01)/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4631:2: 4631 | f20102num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4632:2: 4632 | f20112num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12*gl01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4633:2: 4633 | f20202num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl02*v02/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4634:2: 4634 | f20212num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4635:2: 4635 | f21212num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4638:17: 4638 | fv1denum(jtw) = f1denum ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4639:17: 4639 | fv2denum(jtw) = f2denum ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4641:2: 4641 | resgdenum = resgdenum+wg(j)*(f1denum+f2denum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4642:17: 4642 | reskdenum = reskdenum + wgk(jtw)*(f1denum+f2denum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4643:17: 4643 | resabsdenum = resabsdenum + wgk(jtw)*(dabs(f1denum)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4644:17: 4644 | dabs(f2denum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4646:2: 4646 | fv101num(jtw) = f101num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4647:17: 4647 | fv201num(jtw) = f201num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4649:2: 4649 | resg01num = resg01num+wg(j)*(f101num+f201num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4650:17: 4650 | resk01num = resk01num + wgk(jtw)*(f101num+f201num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4651:17: 4651 | resabs01num = resabs01num + wgk(jtw)*(dabs(f101num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4652:17: 4652 | dabs(f201num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4654:2: 4654 | fv102num(jtw) = f102num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4655:17: 4655 | fv202num(jtw) = f202num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4657:2: 4657 | resg02num = resg02num+wg(j)*(f102num+f202num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4658:17: 4658 | resk02num = resk02num + wgk(jtw)*(f102num+f202num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4659:17: 4659 | resabs02num = resabs02num + wgk(jtw)*(dabs(f102num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4660:17: 4660 | dabs(f202num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4662:2: 4662 | fv112num(jtw) = f112num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4663:17: 4663 | fv212num(jtw) = f212num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4665:2: 4665 | resg12num = resg12num+wg(j)*(f112num+f212num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4666:17: 4666 | resk12num = resk12num + wgk(jtw)*(f112num+f212num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4667:17: 4667 | resabs12num = resabs12num + wgk(jtw)*(dabs(f112num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4668:17: 4668 | dabs(f212num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4670:2: 4670 | fv10101num(jtw) = f10101num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4671:17: 4671 | fv20101num(jtw) = f20101num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4673:2: 4673 | resg0101num = resg0101num+wg(j)*(f10101num+f20101num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4674:17: 4674 | resk0101num = resk0101num + wgk(jtw)*(f10101num+f20101num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4675:17: 4675 | resabs0101num = resabs0101num + wgk(jtw)*(dabs(f10101num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4676:17: 4676 | dabs(f20101num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4678:2: 4678 | fv10102num(jtw) = f10102num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4679:17: 4679 | fv20102num(jtw) = f20102num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4681:2: 4681 | resg0102num = resg0102num+wg(j)*(f10102num+f20102num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4682:17: 4682 | resk0102num = resk0102num + wgk(jtw)*(f10102num+f20102num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4683:17: 4683 | resabs0102num = resabs0102num + wgk(jtw)*(dabs(f10102num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4684:17: 4684 | dabs(f20102num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4686:2: 4686 | fv10112num(jtw) = f10112num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4687:17: 4687 | fv20112num(jtw) = f20112num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4689:2: 4689 | resg0112num = resg0112num+wg(j)*(f10112num+f20112num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4690:17: 4690 | resk0112num = resk0112num + wgk(jtw)*(f10112num+f20112num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4691:17: 4691 | resabs0112num = resabs0112num + wgk(jtw)*(dabs(f10112num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4692:17: 4692 | dabs(f20112num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4694:2: 4694 | fv10202num(jtw) = f10202num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4695:17: 4695 | fv20202num(jtw) = f20202num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4697:2: 4697 | resg0202num = resg0202num+wg(j)*(f10202num+f20202num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4698:17: 4698 | resk0202num = resk0202num + wgk(jtw)*(f10202num+f20202num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4699:17: 4699 | resabs0202num = resabs0202num + wgk(jtw)*(dabs(f10202num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4700:17: 4700 | dabs(f20202num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4702:2: 4702 | fv10212num(jtw) = f10212num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4703:17: 4703 | fv20212num(jtw) = f20212num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4705:2: 4705 | resg0212num = resg0212num+wg(j)*(f10212num+f20212num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4706:17: 4706 | resk0212num = resk0212num + wgk(jtw)*(f10212num+f20212num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4707:17: 4707 | resabs0212num = resabs0212num + wgk(jtw)*(dabs(f10212num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4708:17: 4708 | dabs(f20212num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4710:2: 4710 | fv11212num(jtw) = f11212num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4711:17: 4711 | fv21212num(jtw) = f21212num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4713:2: 4713 | resg1212num = resg1212num+wg(j)*(f11212num+f21212num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4714:17: 4714 | resk1212num = resk1212num + wgk(jtw)*(f11212num+f21212num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4715:17: 4715 | resabs1212num = resabs1212num + wgk(jtw)*(dabs(f11212num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4716:17: 4716 | dabs(f21212num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4719:11: 4719 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4720:2: 4720 | do j=1,4 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4721:2: 4721 | jtwm1 = j*2-1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4722:17: 4722 | dx=xr*xgk(jtwm1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4723:17: 4723 | xx = xm+dx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4724:17: 4724 | call susp(xx,the01,nz01,su01,ri01,zi01,gl01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4725:10: 4725 | call susp(xx,the02,nz02,su02,ri02,zi02,gl02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4726:10: 4726 | call susp(xx,the12,nz12,su12,ri12,zi12,gl12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4727:8: 4727 | f1denum =(su01**v01)*(su02**v02)*ri01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4728:2: 4728 | f101num=(su01**v01)*(su02**v02)*ri01*v01*(1-gl01*v01)/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4729:2: 4729 | f102num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4730:2: 4730 | f112num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4732:2: 4732 | f10101num=(su01**v01)*(su02**v02)*ri01*v01*(((1-gl01*v01)**2)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4733:2: 4733 | gl01*v01)/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4734:2: 4734 | f10102num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4735:2: 4735 | f10112num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12*gl01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4736:2: 4736 | f10202num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl02*v02/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4737:2: 4737 | f10212num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4738:2: 4738 | f11212num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4741:17: 4741 | xx = xm-dx | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4742:17: 4742 | call susp(xx,the01,nz01,su01,ri01,zi01,gl01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4743:10: 4743 | call susp(xx,the02,nz02,su02,ri02,zi02,gl02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4744:10: 4744 | call susp(xx,the12,nz12,su12,ri12,zi12,gl12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4746:2: 4746 | f201num=(su01**v01)*(su02**v02)*ri01*v01*(1-gl01*v01)/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4747:2: 4747 | f202num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4748:2: 4748 | f212num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4750:2: 4750 | f20101num=(su01**v01)*(su02**v02)*ri01*v01*(((1-gl01*v01)**2)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4751:2: 4751 | gl01*v01)/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4752:2: 4752 | f20102num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4753:2: 4753 | f20112num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12*gl01*v01/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4754:2: 4754 | f20202num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl02*v02/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4755:2: 4755 | f20212num=(su01**v01)*(su02**v02)*ri01*v01*gl02*v02*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4756:2: 4756 | f21212num=(su01**v01)*(su02**v02)*ri01*v01*gl12*v12*gl12*v12/(su12**v12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4759:17: 4759 | fv1denum(jtwm1) = f1denum ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4760:17: 4760 | fv2denum(jtwm1) = f2denum ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4761:2: 4761 | reskdenum = reskdenum + wgk(jtwm1)*(f1denum+f2denum) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4762:17: 4762 | resabsdenum = resabsdenum + wgk(jtwm1)*(dabs(f1denum)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4763:17: 4763 | dabs(f2denum)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4765:2: 4765 | fv101num(jtwm1) = f101num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4766:17: 4766 | fv201num(jtwm1) = f201num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4767:2: 4767 | resk01num = resk01num + wgk(jtwm1)*(f101num+f201num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4768:17: 4768 | resabs01num = resabs01num + wgk(jtwm1)*(dabs(f101num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4769:17: 4769 | dabs(f201num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4771:2: 4771 | fv102num(jtwm1) = f102num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4772:17: 4772 | fv202num(jtwm1) = f202num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4773:2: 4773 | resk02num = resk02num + wgk(jtwm1)*(f102num+f202num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4774:17: 4774 | resabs02num = resabs02num + wgk(jtwm1)*(dabs(f102num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4775:17: 4775 | dabs(f202num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4777:2: 4777 | fv112num(jtwm1) = f112num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4778:17: 4778 | fv212num(jtwm1) = f212num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4779:2: 4779 | resk12num = resk12num + wgk(jtwm1)*(f112num+f212num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4780:17: 4780 | resabs12num = resabs12num + wgk(jtwm1)*(dabs(f112num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4781:17: 4781 | dabs(f212num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4783:2: 4783 | fv10101num(jtwm1) = f10101num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4784:17: 4784 | fv20101num(jtwm1) = f20101num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4785:17: 4785 | resk0101num = resk0101num + wgk(jtwm1)*(f10101num+f20101num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4786:17: 4786 | resabs0101num = resabs0101num + wgk(jtwm1)*(dabs(f10101num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4787:17: 4787 | dabs(f20101num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4790:2: 4790 | fv10102num(jtwm1) = f10102num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4791:17: 4791 | fv20102num(jtwm1) = f20102num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4792:17: 4792 | resk0102num = resk0102num + wgk(jtwm1)*(f10102num+f20102num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4793:17: 4793 | resabs0102num = resabs0102num + wgk(jtwm1)*(dabs(f10102num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4794:17: 4794 | dabs(f20102num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4796:2: 4796 | fv10112num(jtwm1) = f10112num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4797:17: 4797 | fv20112num(jtwm1) = f20112num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4798:17: 4798 | resk0112num = resk0112num + wgk(jtwm1)*(f10112num+f20112num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4799:17: 4799 | resabs0112num = resabs0112num + wgk(jtwm1)*(dabs(f10112num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4800:17: 4800 | dabs(f20112num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4802:2: 4802 | fv10202num(jtwm1) = f10202num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4803:17: 4803 | fv20202num(jtwm1) = f20202num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4804:17: 4804 | resk0202num = resk0202num + wgk(jtwm1)*(f10202num+f20202num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4805:17: 4805 | resabs0202num = resabs0202num + wgk(jtwm1)*(dabs(f10202num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4806:17: 4806 | dabs(f20202num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4808:2: 4808 | fv10212num(jtwm1) = f10212num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4809:17: 4809 | fv20212num(jtwm1) = f20212num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4810:17: 4810 | resk0212num = resk0212num + wgk(jtwm1)*(f10212num+f20212num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4811:17: 4811 | resabs0212num = resabs0212num + wgk(jtwm1)*(dabs(f10212num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4812:17: 4812 | dabs(f20212num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4814:2: 4814 | fv11212num(jtwm1) = f11212num ! svgrd valeurs fct f a gche du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4815:17: 4815 | fv21212num(jtwm1) = f21212num ! svgrd valeurs fct f a drte du centre | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4816:17: 4816 | resk1212num = resk1212num + wgk(jtwm1)*(f11212num+f21212num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4817:17: 4817 | resabs1212num = resabs1212num + wgk(jtwm1)*(dabs(f11212num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4818:17: 4818 | dabs(f21212num)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4824:11: 4824 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4826:11: 4826 | reskhdenum = reskdenum*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4827:11: 4827 | resascdenum = wgk(8)*dabs(fcdenum-reskhdenum) ! init ! w8 * abs(fc - res Kronrod / 2 ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4830:11: 4830 | reskh01num = resk01num*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4831:11: 4831 | resasc01num = wgk(8)*dabs(fc01num-reskh01num) ! init ! w8 * abs(fc - res Kronrod / 2 ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4834:11: 4834 | reskh02num = resk02num*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4835:11: 4835 | resasc02num = wgk(8)*dabs(fc02num-reskh02num) ! init ! w8 * abs(fc - res Kronrod / 2 ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4838:11: 4838 | reskh12num = resk12num*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4839:11: 4839 | resasc12num = wgk(8)*dabs(fc12num-reskh12num) ! init ! w8 * abs(fc - res Kronrod / 2 ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4841:2: 4841 | reskh0101num = resk0101num*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4842:11: 4842 | resasc0101num = wgk(8)*dabs(fc0101num-reskh0101num) ! init ! w8 * abs(fc - res Kronrod / 2 ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4844:2: 4844 | reskh0102num = resk0102num*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4845:11: 4845 | resasc0102num = wgk(8)*dabs(fc0102num-reskh0102num) ! init ! w8 * abs(fc - res Kronrod / 2 ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4847:2: 4847 | reskh0112num = resk0112num*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4848:11: 4848 | resasc0112num = wgk(8)*dabs(fc0112num-reskh0112num) ! init ! w8 * abs(fc - res Kronrod / 2 ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4850:2: 4850 | reskh0202num = resk0202num*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4851:11: 4851 | resasc0202num = wgk(8)*dabs(fc0202num-reskh0202num) ! init ! w8 * abs(fc - res Kronrod / 2 ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4853:2: 4853 | reskh0212num = resk0212num*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4854:11: 4854 | resasc0212num = wgk(8)*dabs(fc0212num-reskh0212num) ! init ! w8 * abs(fc - res Kronrod / 2 ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4857:2: 4857 | reskh1212num = resk1212num*0.5d+00 ! res Kronrod / 2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4858:11: 4858 | resasc1212num = wgk(8)*dabs(fc1212num-reskh1212num) ! init ! w8 * abs(fc - res Kronrod / 2 ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4861:2: 4861 | do j=1,7 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4862:10: 4862 | resascdenum = resascdenum+wgk(j)*(dabs(fv1denum(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4863:10: 4863 | reskhdenum)+dabs(fv2denum(j)-reskhdenum)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4864:2: 4864 | resascdenum = resascdenum+wgk(j)*(dabs(fv1denum(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4865:2: 4865 | reskhdenum)+dabs(fv2denum(j)-reskhdenum)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4867:10: 4867 | resasc01num = resasc01num+wgk(j)*(dabs(fv101num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4868:10: 4868 | reskh01num)+dabs(fv201num(j)-reskh01num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4869:2: 4869 | resasc01num = resasc01num+wgk(j)*(dabs(fv101num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4870:2: 4870 | reskh01num)+dabs(fv201num(j)-reskh01num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4872:10: 4872 | resasc02num = resasc02num+wgk(j)*(dabs(fv102num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4873:10: 4873 | reskh02num)+dabs(fv202num(j)-reskh02num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4874:2: 4874 | resasc02num = resasc02num+wgk(j)*(dabs(fv102num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4875:2: 4875 | reskh02num)+dabs(fv202num(j)-reskh02num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4877:10: 4877 | resasc12num = resasc12num+wgk(j)*(dabs(fv112num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4878:10: 4878 | reskh12num)+dabs(fv212num(j)-reskh12num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4879:2: 4879 | resasc12num = resasc12num+wgk(j)*(dabs(fv112num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4880:2: 4880 | reskh12num)+dabs(fv212num(j)-reskh12num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4882:2: 4882 | resasc0101num = resasc0101num+wgk(j)*(dabs(fv10101num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4883:10: 4883 | reskh0101num)+dabs(fv20101num(j)-reskh0101num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4884:2: 4884 | resasc0101num = resasc0101num+wgk(j)*(dabs(fv10101num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4885:2: 4885 | reskh0101num)+dabs(fv20101num(j)-reskh0101num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4887:2: 4887 | resasc0102num = resasc0102num+wgk(j)*(dabs(fv10102num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4888:10: 4888 | reskh0102num)+dabs(fv20102num(j)-reskh0102num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4889:2: 4889 | resasc0102num = resasc0102num+wgk(j)*(dabs(fv10102num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4890:2: 4890 | reskh0102num)+dabs(fv20102num(j)-reskh0102num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4892:2: 4892 | resasc0112num = resasc0112num+wgk(j)*(dabs(fv10112num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4893:10: 4893 | reskh0112num)+dabs(fv20112num(j)-reskh0112num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4894:2: 4894 | resasc0112num = resasc0112num+wgk(j)*(dabs(fv10112num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4895:2: 4895 | reskh0112num)+dabs(fv20112num(j)-reskh0112num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4898:2: 4898 | resasc0202num = resasc0202num+wgk(j)*(dabs(fv10202num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4899:10: 4899 | reskh0202num)+dabs(fv20202num(j)-reskh0202num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4900:2: 4900 | resasc0202num = resasc0202num+wgk(j)*(dabs(fv10202num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4901:2: 4901 | reskh0202num)+dabs(fv20202num(j)-reskh0202num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4904:2: 4904 | resasc0212num = resasc0212num+wgk(j)*(dabs(fv10212num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4905:10: 4905 | reskh0212num)+dabs(fv20212num(j)-reskh0212num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4906:2: 4906 | resasc0212num = resasc0212num+wgk(j)*(dabs(fv10212num(j)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4907:2: 4907 | reskh0212num)+dabs(fv20212num(j)-reskh0212num)) ! ite | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4911:6: 4911 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4913:6: 4913 | resdenum = reskdenum*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4914:6: 4914 | res01num = resk01num*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4915:6: 4915 | res02num = resk02num*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4916:6: 4916 | res12num = resk12num*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4917:2: 4917 | res0101num = resk0101num*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4918:2: 4918 | res0102num = resk0102num*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4919:2: 4919 | res0112num = resk0112num*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4920:2: 4920 | res0202num = resk0202num*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4921:2: 4921 | res0212num = resk0212num*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4922:2: 4922 | res1212num = resk1212num*xr | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4940:2: 4940 | use commun | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4944:2: 4944 | res20101num,res20102num,res20112num,res20202num,res20212num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4945:2: 4945 | res21212num,vet01,vet12,vet02,resint,v,u1,u2,u3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4947:2: 4947 | nz010,nz020,nz120,troncature0,dimnva01,dimnva02,dimnva12, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4948:2: 4948 | nva01nofix,nva12nofix,nva02nofix,nvamax, sizespline,nva0102,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4949:2: 4949 | nvamax01,nvamax0102,nvamax0112,nvamax02,nvamax0212,nvamax12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4951:2: 4951 | double precision,dimension(np0+np0*(np0+1)/2),intent(inout)::likelihood_deriv | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4952:2: 4952 | double precision,dimension(np0)::b0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4953:2: 4953 | double precision,dimension(np0+np0*(np0+1)/2)::res,res1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4955:2: 4955 | double precision,dimension(npar0-np0)::bfix0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4956:2: 4956 | integer,dimension(npar0)::fix0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4957:2: 4957 | double precision,dimension(2)::the01,the12,the02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4959:2: 4959 | double precision,dimension(no0,dimnva02)::ve020 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4960:2: 4960 | double precision,dimension(no0,dimnva12)::ve120 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4964:2: 4964 | double precision,dimension(no0)::t00,t10,t20,t30 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4965:2: 4965 | integer,dimension(no0)::c0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4967:2: 4967 | allocate(b(np0),bfix(npar0-np0),fix(npar0)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4968:2: 4968 | b=b0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4969:2: 4969 | bfix=bfix0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4970:2: 4970 | fix=fix0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4971:2: 4971 | troncature=troncature0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4972:2: 4972 | sizespline=6 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4975:2: 4975 | if(nva01.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4976:2: 4976 | nva01nofix=nva01-sum(fix((sizespline+1):(nva01+sizespline))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4977:2: 4977 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4978:2: 4978 | nva01nofix=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4979:2: 4979 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4981:2: 4981 | if(nva02.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4983:2: 4983 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4984:2: 4984 | nva02nofix=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4985:2: 4985 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4987:2: 4987 | if(nva12.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4988:2: 4988 | nva12nofix=nva12-sum(fix((nva01+nva02+sizespline+1):npar0)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4989:2: 4989 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4990:2: 4990 | nva12nofix=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4991:2: 4991 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4993:2: 4993 | nva0102=nva01nofix+nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4994:2: 4994 | nvamax=nva01nofix+nva02nofix+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4995:2: 4995 | nvamax01=nvamax+(nva01nofix+1)*nva01nofix/2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4996:2: 4996 | nvamax0102=nvamax01+nva01nofix*nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4997:2: 4997 | nvamax0112=nvamax0102+nva01nofix*nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4998:2: 4998 | nvamax02=nvamax0112+(nva02nofix+1)*nva02nofix/2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:4999:2: 4999 | nvamax0212=nvamax02+nva02nofix*nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5000:2: 5000 | nvamax12=nvamax0212+(nva12nofix+1)*nva12nofix/2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5003:2: 5003 | if(nva01.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5004:2: 5004 | allocate(ve01(no0,nva01)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5005:2: 5005 | allocate(ve01nofix(no0,nva01nofix)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5006:2: 5006 | allocate(ve01square(no0,nva01nofix*(nva01nofix+1)/2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5007:2: 5007 | allocate(tronc01(nva01nofix)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5008:2: 5008 | allocate(tronc01square(nva01nofix*(nva01nofix+1)/2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5009:2: 5009 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5010:2: 5010 | allocate(ve01(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5011:2: 5011 | allocate(ve01nofix(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5012:2: 5012 | ve01nofix=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5013:2: 5013 | allocate(ve01square(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5014:2: 5014 | ve01square=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5015:2: 5015 | allocate(tronc01(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5016:2: 5016 | allocate(tronc01square(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5017:2: 5017 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5019:2: 5019 | if(nva02.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5020:2: 5020 | allocate(ve02(no0,nva02)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5021:2: 5021 | allocate(ve02nofix(no0,nva02nofix)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5022:2: 5022 | allocate(ve02square(no0,nva02nofix*(nva02nofix+1)/2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5023:2: 5023 | allocate(tronc02(nva02nofix)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5024:2: 5024 | allocate(tronc02square(nva02nofix*(nva02nofix+1)/2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5025:2: 5025 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5026:2: 5026 | allocate(ve02(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5027:2: 5027 | allocate(ve02nofix(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5028:2: 5028 | ve02nofix=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5029:2: 5029 | allocate(ve02square(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5030:2: 5030 | ve02square=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5031:2: 5031 | allocate(tronc02(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5032:2: 5032 | allocate(tronc02square(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5033:2: 5033 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5035:2: 5035 | if(nva12.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5036:2: 5036 | allocate(ve12(no0,nva12)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5037:2: 5037 | allocate(ve12nofix(no0,nva12nofix)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5038:2: 5038 | allocate(ve12square(no0,nva12nofix*(nva12nofix+1)/2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5039:2: 5039 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5040:2: 5040 | allocate(ve12(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5041:2: 5041 | allocate(ve12nofix(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5042:2: 5042 | ve12nofix=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5043:2: 5043 | allocate(ve12square(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5044:2: 5044 | ve12square=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5045:2: 5045 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5049:2: 5049 | ve01=ve010 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5050:2: 5050 | ve02=ve020 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5051:2: 5051 | ve12=ve120 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5053:2: 5053 | allocate(t0(no0),t1(no0),t2(no0),t3(no0),c(no0)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5054:2: 5054 | c=c0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5055:2: 5055 | t0=t00 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5056:2: 5056 | t1=t10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5057:2: 5057 | t2=t20 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5058:2: 5058 | t3=t30 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5068:2: 5068 | if(nva01.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5069:2: 5069 | do k=1,nva01 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5070:2: 5070 | if(fix((sizespline+k)).eq.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5071:2: 5071 | lfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5072:2: 5072 | ve01nofix(:,lfix)=ve01(:,k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5073:2: 5073 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5074:2: 5074 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5076:2: 5076 | do i=1,no0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5077:2: 5077 | lfix=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5078:2: 5078 | do l=1,nva01nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5079:2: 5079 | ve01square(i,lfix:(lfix+nva01nofix-l))=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5080:2: 5080 | ve01nofix(i,l:nva01nofix) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5081:2: 5081 | ve01square(i,lfix:(lfix+nva01nofix-l))=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5082:2: 5082 | ve01square(i,lfix:(lfix+nva01nofix-l))*ve01nofix(i,l) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5083:2: 5083 | lfix=lfix+nva01nofix-l+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5084:2: 5084 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5085:2: 5085 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5088:2: 5088 | lfix=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5090:2: 5090 | if(nva02.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5091:2: 5091 | do k=1,nva02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5092:2: 5092 | if(fix((sizespline+nva01+k)).eq.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5093:2: 5093 | lfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5094:2: 5094 | ve02nofix(:,lfix)=ve02(:,k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5095:2: 5095 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5096:2: 5096 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5098:2: 5098 | do i=1,no0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5099:2: 5099 | lfix=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5100:2: 5100 | do l=1,nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5101:2: 5101 | ve02square(i,lfix:(lfix+nva02nofix-l))=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5102:2: 5102 | ve02nofix(i,l)*ve02nofix(i,l:nva02nofix) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5103:2: 5103 | lfix=lfix+nva02nofix-l+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5104:2: 5104 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5105:2: 5105 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5107:2: 5107 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5109:2: 5109 | lfix=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5111:2: 5111 | if(nva12.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5112:2: 5112 | do k=1,nva12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5113:2: 5113 | if(fix((sizespline+nva01+nva02+k)).eq.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5114:2: 5114 | lfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5115:2: 5115 | ve12nofix(:,lfix)=ve12(:,k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5116:2: 5116 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5117:2: 5117 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5119:2: 5119 | do i=1,no0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5120:2: 5120 | lfix=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5121:2: 5121 | do l=1,nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5122:2: 5122 | ve12square(i,lfix:(lfix+nva12nofix-l))=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5123:2: 5123 | ve12nofix(i,l)*ve12nofix(i,l:nva12nofix) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5124:2: 5124 | lfix=lfix+nva12nofix-l+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5125:2: 5125 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5126:2: 5126 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5128:2: 5128 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5130:2: 5130 | l=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5138:2: 5138 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5166:2: 5166 | res = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5177:2: 5177 | vet01 =vet01 +& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5184:2: 5184 | vet02 =vet02 +& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5191:2: 5191 | vet12 =vet12 +& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5206:2: 5206 | tronc02 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5207:26: 5207 | tronc01square= 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5208:26: 5208 | tronc02square=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5210:2: 5210 | call fonct(t0(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5211:2: 5211 | call fonct(t0(i),the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5213:26: 5213 | tronc02=ve02nofix(i,:)*gl02*vet02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5214:26: 5214 | tronc01square=ve01square(i,:)*gl01*vet01 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5215:26: 5215 | tronc02square=ve02square(i,:)*gl02*vet02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5219:20: 5219 | tronc02 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5220:20: 5220 | tronc01square=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5221:20: 5221 | tronc02square=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5225:2: 5225 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5226:2: 5226 | call fonct(t1(i),the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5228:2: 5228 | if(nva01nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5230:2: 5230 | res1(1:nva01nofix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5231:2: 5231 | -ve01nofix(i,:)*gl01*vet01+tronc01 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5232:2: 5232 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5233:2: 5233 | -ve01square(i,:)*gl01*vet01+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5234:2: 5234 | tronc01square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5236:2: 5236 | if(nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5237:2: 5237 | res1((nvamax01+1):nvamax0102)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5238:2: 5238 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5239:2: 5239 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5240:2: 5240 | res1((nvamax0102+1):nvamax0112)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5241:2: 5241 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5243:2: 5243 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5245:2: 5245 | if(nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5246:2: 5246 | res1((nva01nofix+1):nva0102)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5247:2: 5247 | -ve02nofix(i,:)*gl02*vet02+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5248:2: 5248 | tronc02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5250:2: 5250 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5251:2: 5251 | -ve02square(i,:)*gl02*vet02+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5252:2: 5252 | tronc02square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5253:2: 5253 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5254:2: 5254 | res1((nvamax02+1):nvamax0212)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5255:2: 5255 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5256:2: 5256 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5258:2: 5258 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5259:2: 5259 | res1((nva0102+1):nvamax)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5260:2: 5260 | res1((nvamax0212+1):nvamax12)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5261:2: 5261 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5268:2: 5268 | call fonct(t3(i),the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5269:2: 5269 | call qgaussweibderiv(t1(i),t2(i),the01,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5270:2: 5270 | the02,the12,res2denum,res201num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5271:2: 5271 | res202num,res212num,res20101num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5272:2: 5272 | res20102num,res20112num,res20202num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5273:2: 5273 | res20212num,res21212num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5274:2: 5274 | vet01,vet02,vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5276:2: 5276 | v=res2denum*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5278:2: 5278 | if(nva01nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5280:2: 5280 | u1=res201num*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5282:8: 5282 | res1(1:nva01nofix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5283:2: 5283 | ve01nofix(i,:)*u1/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5284:2: 5284 | res1(1:nva01nofix)=res1(1:nva01nofix)+tronc01 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5286:2: 5286 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5287:2: 5287 | ve01square(i,:)*res20101num*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5288:2: 5288 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5289:2: 5289 | res1((nvamax+1):nvamax01)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5290:2: 5290 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5291:2: 5291 | res1((nvamax+1):nvamax01)-ve01square(i,:)*((u1/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5292:2: 5292 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5293:2: 5293 | res1((nvamax+1):nvamax01)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5294:2: 5294 | tronc01square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5296:2: 5296 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5299:2: 5299 | if(nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5301:2: 5301 | u2=-res202num*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5302:2: 5302 | res1((nva01nofix+1):nva0102)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5303:2: 5303 | ve02nofix(i,:)*u2/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5304:2: 5304 | res1((nva01nofix+1):nva0102)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5305:2: 5305 | res1((nva01nofix+1):nva0102)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5306:2: 5306 | tronc02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5308:2: 5308 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5309:2: 5309 | -ve02square(i,:)*(su12**vet12)*(-res20202num+res202num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5310:2: 5310 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5311:2: 5311 | res1((nvamax0112+1):nvamax02)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5312:2: 5312 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5313:2: 5313 | res1((nvamax0112+1):nvamax02)-ve02square(i,:)*((u2/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5314:2: 5314 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5315:2: 5315 | res1((nvamax0112+1):nvamax02)+tronc02square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5318:2: 5318 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5321:2: 5321 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5323:2: 5323 | u3=res212num-gl12*vet12*res2denum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5324:2: 5324 | u3=u3*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5326:2: 5326 | res1((nva0102+1):nvamax)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5327:2: 5327 | ve12nofix(i,:)*u3/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5328:2: 5328 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5329:2: 5329 | -2*gl12*vet12*res212num+res212num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5330:2: 5330 | res21212num-gl12*vet12*(1-gl12*vet12)*res2denum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5331:2: 5331 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5332:2: 5332 | res1((nvamax0212+1):nvamax12)*(su12**vet12)*ve12square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5333:2: 5333 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5334:2: 5334 | res1((nvamax0212+1):nvamax12)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5335:2: 5335 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5336:2: 5336 | res1((nvamax0212+1):nvamax12)-ve12square(i,:)*((u3/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5339:2: 5339 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5344:2: 5344 | if(nva01nofix.gt.0 .AND. nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5346:2: 5346 | kfix=nvamax01+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5347:2: 5347 | lfix=kfix-1+nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5349:2: 5349 | do j=1,nva01nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5351:2: 5351 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5352:2: 5352 | (res20102num-res202num)*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5353:2: 5353 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5354:2: 5354 | res1(kfix:lfix)*ve01nofix(i,j)*ve02nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5355:2: 5355 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5356:2: 5356 | res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5358:2: 5358 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5359:2: 5359 | res1(kfix:lfix)-u1*u2*ve01nofix(i,j)*ve02nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5360:2: 5360 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5361:2: 5361 | res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5362:2: 5362 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5363:2: 5363 | lfix=lfix+nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5365:2: 5365 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5367:2: 5367 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5369:2: 5369 | if(nva01nofix.gt.0 .AND. nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5371:2: 5371 | kfix=nvamax0102+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5372:2: 5372 | lfix=kfix-1+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5374:2: 5374 | do j=1,nva01nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5375:2: 5375 | res1(kfix:lfix)=-gl12*vet12*res201num-res20112num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5376:2: 5376 | res212num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5377:2: 5377 | res1(kfix:lfix)=res1(kfix:lfix)*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5378:2: 5378 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5379:2: 5379 | res1(kfix:lfix)*ve01nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5380:2: 5380 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5381:2: 5381 | res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5382:2: 5382 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5383:2: 5383 | res1(kfix:lfix)-u1*u3*ve01nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5384:2: 5384 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5385:2: 5385 | res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5386:2: 5386 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5387:2: 5387 | lfix=lfix+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5388:2: 5388 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5390:2: 5390 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5393:2: 5393 | if(nva12nofix.gt.0 .AND. nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5395:2: 5395 | kfix=nvamax02+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5396:2: 5396 | lfix=kfix-1+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5398:2: 5398 | do j=1,nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5399:2: 5399 | res1(kfix:lfix)=-res20212num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5400:2: 5400 | gl12*vet12*res202num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5401:2: 5401 | res1(kfix:lfix)=res1(kfix:lfix)*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5402:2: 5402 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5403:2: 5403 | res1(kfix:lfix)*ve02nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5404:2: 5404 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5405:2: 5405 | res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5406:2: 5406 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5407:2: 5407 | res1(kfix:lfix)-u2*u3*ve02nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5408:2: 5408 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5409:2: 5409 | res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5410:2: 5410 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5411:2: 5411 | lfix=lfix+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5412:2: 5412 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5414:2: 5414 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5419:2: 5419 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5420:2: 5420 | call fonct(t1(i),the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5421:2: 5421 | call fonct(t1(i),the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5423:2: 5423 | if(nva01nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5425:2: 5425 | res1(1:nva01nofix)=-ve01nofix(i,:)*gl01*vet01+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5426:2: 5426 | tronc01+ve01nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5427:2: 5427 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5428:2: 5428 | -ve01square(i,:)*gl01*vet01+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5429:2: 5429 | tronc01square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5431:2: 5431 | if(nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5432:2: 5432 | res1((nvamax01+1):nvamax0102)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5433:2: 5433 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5435:2: 5435 | if(nva12nofix.gt.0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5436:2: 5436 | res1((nvamax0102+1):nvamax0112)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5437:2: 5437 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5439:2: 5439 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5441:2: 5441 | if(nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5443:2: 5443 | res1((nva01nofix+1):nva0102)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5444:2: 5444 | -ve02nofix(i,:)*gl02*vet02+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5445:2: 5445 | tronc02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5446:2: 5446 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5447:2: 5447 | -ve02square(i,:)*gl02*vet02+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5448:2: 5448 | tronc02square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5450:2: 5450 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5451:2: 5451 | res1((nvamax02+1):nvamax0212)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5452:2: 5452 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5454:2: 5454 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5456:2: 5456 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5458:2: 5458 | res1((nva0102+1):nvamax)=gl12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5459:2: 5459 | res1((nvamax0212+1):nvamax12)=gl12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5461:2: 5461 | call fonct(t3(i),the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5462:2: 5462 | res1((nva0102+1):nvamax)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5463:2: 5463 | res1((nva0102+1):nvamax)-gl12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5464:2: 5464 | res1((nva0102+1):nvamax)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5465:2: 5465 | res1((nva0102+1):nvamax)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5467:2: 5467 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5468:2: 5468 | res1((nvamax0212+1):nvamax12)-gl12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5469:2: 5469 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5470:2: 5470 | res1((nvamax0212+1):nvamax12)*ve12square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5473:2: 5473 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5480:2: 5480 | call fonct(t3(i),the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5481:2: 5481 | call qgaussweibderiv(t1(i),t2(i),the01,the02,the12,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5482:2: 5482 | res2denum,res201num,res202num,res212num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5483:2: 5483 | res20101num,res20102num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5484:2: 5484 | res20112num,res20202num,res20212num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5485:2: 5485 | res21212num,vet01,vet02,vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5487:2: 5487 | v=res2denum*(su12**vet12)*ri12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5489:2: 5489 | if(nva01nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5490:2: 5490 | u1=res201num*(su12**vet12)*ri12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5492:2: 5492 | res1(1:nva01nofix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5493:2: 5493 | ve01nofix(i,:)*u1/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5494:2: 5494 | res1(1:nva01nofix)=res1(1:nva01nofix)+tronc01 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5496:2: 5496 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5497:2: 5497 | res20101num*(su12**vet12)*ri12*vet12*ve01square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5498:2: 5498 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5499:2: 5499 | res1((nvamax+1):nvamax01)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5500:2: 5500 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5501:2: 5501 | res1((nvamax+1):nvamax01)-ve01square(i,:)*((u1/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5502:2: 5502 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5503:2: 5503 | res1((nvamax+1):nvamax01)+tronc01square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5505:2: 5505 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5508:2: 5508 | if(nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5510:2: 5510 | u2=-res202num*(su12**vet12)*ri12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5512:2: 5512 | res1((nva01nofix+1):(nva01nofix+nva02nofix))=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5513:2: 5513 | ve02nofix(i,:)*u2/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5514:2: 5514 | res1((nva01nofix+1):nva0102)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5515:2: 5515 | res1((nva01nofix+1):nva0102)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5516:2: 5516 | tronc02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5518:2: 5518 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5519:2: 5519 | (res20202num-res202num)*ri12*vet12*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5520:2: 5520 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5521:2: 5521 | res1((nvamax0112+1):nvamax02)*ve02square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5522:2: 5522 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5523:2: 5523 | res1((nvamax0112+1):nvamax02)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5524:2: 5524 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5525:2: 5525 | res1((nvamax0112+1):nvamax02)-ve02square(i,:)*((u2/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5526:2: 5526 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5527:2: 5527 | res1((nvamax0112+1):nvamax02)+tronc02square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5529:2: 5529 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5533:2: 5533 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5535:2: 5535 | u3=res212num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5536:2: 5536 | (1-gl12*vet12)*res2denum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5537:2: 5537 | u3=u3*(su12**vet12)*ri12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5539:2: 5539 | res1((nva0102+1):nvamax)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5540:2: 5540 | ve12nofix(i,:)*u3/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5542:2: 5542 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5543:2: 5543 | (1-gl12*vet12)*res212num+res21212num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5544:2: 5544 | ((1-gl12*vet12)**2)*res2denum+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5545:2: 5545 | (2-gl12*vet12)*res212num-gl12*vet12*res2denum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5546:2: 5546 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5547:2: 5547 | res1((nvamax0212+1):nvamax12)*(su12**vet12)*ri12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5548:2: 5548 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5549:2: 5549 | res1((nvamax0212+1):nvamax12)*ve12square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5550:2: 5550 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5551:2: 5551 | res1((nvamax0212+1):nvamax12)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5552:2: 5552 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5553:2: 5553 | res1((nvamax0212+1):nvamax12)-ve12square(i,:)*((u3/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5556:2: 5556 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5560:2: 5560 | if(nva01nofix.gt.0 .AND. nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5561:2: 5561 | kfix=nvamax01+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5562:2: 5562 | lfix=kfix-1+nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5564:2: 5564 | do j=1,nva01nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5565:2: 5565 | res1(kfix:lfix)=(-res202num+res20102num)*ri12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5566:2: 5566 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5567:2: 5567 | res1(kfix:lfix)*ve01nofix(i,j)*ve02nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5568:2: 5568 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5569:2: 5569 | res1(kfix:lfix)*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5570:2: 5570 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5571:2: 5571 | res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5572:2: 5572 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5573:2: 5573 | res1(kfix:lfix)-u1*u2*ve01nofix(i,j)*ve02nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5574:2: 5574 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5575:2: 5575 | res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5576:2: 5576 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5577:2: 5577 | lfix=lfix+nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5578:2: 5578 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5580:2: 5580 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5582:2: 5582 | if(nva01nofix.gt.0 .AND. nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5584:2: 5584 | kfix=nvamax0102+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5585:2: 5585 | lfix=kfix-1+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5587:2: 5587 | do j=1,nva01nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5588:2: 5588 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5589:2: 5589 | (1-gl12*vet12)*res201num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5590:2: 5590 | res212num-res20112num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5591:2: 5591 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5592:2: 5592 | res1(kfix:lfix)*ve01nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5593:2: 5593 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5594:2: 5594 | res1(kfix:lfix)*ri12*vet12*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5595:2: 5595 | res1(kfix:lfix)=res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5596:2: 5596 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5597:2: 5597 | res1(kfix:lfix)-u1*u3*ve01nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5598:2: 5598 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5599:2: 5599 | res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5600:2: 5600 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5601:2: 5601 | lfix=lfix+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5602:2: 5602 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5605:2: 5605 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5607:2: 5607 | if(nva12nofix.gt.0 .AND. nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5609:2: 5609 | kfix=nvamax02+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5610:2: 5610 | lfix=kfix-1+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5612:2: 5612 | do j=1,nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5613:2: 5613 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5614:2: 5614 | res20212num+(1-gl12*vet12)*res202num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5615:2: 5615 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5616:2: 5616 | -res1(kfix:lfix)*ve02nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5617:2: 5617 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5618:2: 5618 | res1(kfix:lfix)*ri12*vet12*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5619:2: 5619 | res1(kfix:lfix)=res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5620:2: 5620 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5621:2: 5621 | res1(kfix:lfix)-ve02nofix(i,j)*ve12nofix(i,:)*u2*u3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5622:2: 5622 | res1(kfix:lfix)=res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5623:2: 5623 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5624:2: 5624 | lfix=lfix+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5625:2: 5625 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5627:2: 5627 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5633:2: 5633 | call fonct(t1(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5634:2: 5634 | call fonct(t1(i),the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5635:2: 5635 | call fonct(t1(i),the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5637:2: 5637 | if(nva01nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5639:2: 5639 | res1(1:nva01nofix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5640:2: 5640 | -ve01nofix(i,:)*gl01*vet01+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5641:2: 5641 | ve01nofix(i,:)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5642:2: 5642 | tronc01 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5643:2: 5643 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5644:2: 5644 | -ve01square(i,:)*gl01*vet01+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5645:2: 5645 | tronc01square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5647:2: 5647 | if(nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5648:2: 5648 | res1((nvamax01+1):nvamax0102)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5649:2: 5649 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5651:2: 5651 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5652:2: 5652 | res1((nvamax0102+1):nvamax0112)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5653:2: 5653 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5655:2: 5655 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5657:2: 5657 | if(nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5659:2: 5659 | res1((nva01nofix+1):nva0102)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5660:2: 5660 | -ve02nofix(i,:)*gl02*vet02+tronc02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5663:2: 5663 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5664:2: 5664 | -ve02square(i,:)*gl02*vet02+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5665:2: 5665 | tronc02square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5667:2: 5667 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5668:2: 5668 | res1((nvamax02+1):nvamax0212)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5669:2: 5669 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5671:2: 5671 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5673:2: 5673 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5675:2: 5675 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5676:2: 5676 | gl12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5677:2: 5677 | res1((nva0102+1):nvamax)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5678:2: 5678 | ve12nofix(i,:)*gl12*vet12+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5679:2: 5679 | ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5681:2: 5681 | call fonct(t3(i),the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5682:2: 5682 | res1((nva0102+1):nvamax)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5683:2: 5683 | res1((nva0102+1):nvamax)-ve12nofix(i,:)*gl12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5684:2: 5684 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5685:2: 5685 | res1((nvamax0212+1):nvamax12)-gl12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5686:2: 5686 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5687:2: 5687 | res1((nvamax0212+1):nvamax12)*ve12square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5690:2: 5690 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5698:2: 5698 | call fonct(t3(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5699:2: 5699 | call fonct(t3(i),the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5700:2: 5700 | call fonct(t3(i),the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5701:2: 5701 | call qgaussweibderiv(t1(i),t3(i),the01,the02,the12,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5702:2: 5702 | res2denum,res201num,res202num,res212num,res20101num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5703:2: 5703 | res20102num,res20112num,res20202num,res20212num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5704:2: 5704 | res21212num,vet01,vet02,vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5707:2: 5707 | v=(su12**vet12)*res2denum+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5708:2: 5708 | (su01**vet01)*(su02**vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5710:2: 5710 | if(nva01nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5712:2: 5712 | u1=(-gl01*vet01)*(su01**vet01)*(su02**vet02)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5713:2: 5713 | (su12**vet12)*res201num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5714:2: 5714 | res1(1:nva01nofix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5715:2: 5715 | ve01nofix(i,:)*u1/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5716:2: 5716 | res1(1:nva01nofix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5717:2: 5717 | res1(1:nva01nofix)+tronc01 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5719:2: 5719 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5720:2: 5720 | res20101num*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5721:2: 5721 | resint=(su01**vet01)*(su02**vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5722:2: 5722 | resint=resint*gl01*vet01*(1-gl01*vet01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5723:2: 5723 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5724:2: 5724 | res1((nvamax+1):nvamax01)-resint | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5726:2: 5726 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5727:2: 5727 | res1((nvamax+1):nvamax01)*ve01square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5728:2: 5728 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5729:2: 5729 | res1((nvamax+1):nvamax01)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5731:2: 5731 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5732:2: 5732 | res1((nvamax+1):nvamax01)-ve01square(i,:)*((u1/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5733:2: 5733 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5734:2: 5734 | res1((nvamax+1):nvamax01)+tronc01square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5736:2: 5736 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5738:2: 5738 | if(nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5740:2: 5740 | u2=-gl02*vet02*(su01**vet01)*(su02**vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5741:2: 5741 | u2=u2-(su12**vet12)*res202num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5742:2: 5742 | res1((nva01nofix+1):nva0102)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5743:2: 5743 | ve02nofix(i,:)*u2/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5744:2: 5744 | res1((nva01nofix+1):nva0102)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5745:2: 5745 | res1((nva01nofix+1):nva0102)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5746:2: 5746 | tronc02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5748:2: 5748 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5749:2: 5749 | (su12**vet12)*(res20202num-res202num)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5750:2: 5750 | gl02*vet02*(su01**vet01)*(su02**vet02)*(1-gl02*vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5751:2: 5751 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5752:2: 5752 | res1((nvamax0112+1):nvamax02)*ve02square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5753:2: 5753 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5754:2: 5754 | res1((nvamax0112+1):nvamax02)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5756:2: 5756 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5757:2: 5757 | res1((nvamax0112+1):nvamax02)-ve02square(i,:)*((u2/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5758:2: 5758 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5759:2: 5759 | res1((nvamax0112+1):nvamax02)+tronc02square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5762:2: 5762 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5764:2: 5764 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5766:2: 5766 | u3=-gl12*vet12*(su12**vet12)*res2denum+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5767:2: 5767 | (su12**vet12)*res212num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5768:2: 5768 | res1((nva0102+1):nvamax)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5769:2: 5769 | ve12nofix(i,:)*u3/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5771:2: 5771 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5772:2: 5772 | res21212num+(1-gl12*vet12)*res212num-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5773:2: 5773 | gl12*vet12*(1-gl12*vet12)*res2denum-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5774:2: 5774 | gl12*vet12*res212num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5775:2: 5775 | resint=(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5776:2: 5776 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5777:2: 5777 | res1((nvamax0212+1):nvamax12)*resint*ve12square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5778:2: 5778 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5779:2: 5779 | res1((nvamax0212+1):nvamax12)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5780:2: 5780 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5781:2: 5781 | res1((nvamax0212+1):nvamax12)-ve12square(i,:)*((u3/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5784:2: 5784 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5787:2: 5787 | if(nva01nofix.gt.0 .AND. nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5789:2: 5789 | kfix=nvamax01+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5790:2: 5790 | lfix=kfix-1+nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5792:2: 5792 | do j=1,nva01nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5793:2: 5793 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5794:2: 5794 | -(res202num-res20102num)*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5795:2: 5795 | resint=(su01**vet01)*(su02**vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5796:2: 5796 | res1(kfix:lfix)=res1(kfix:lfix)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5797:2: 5797 | gl01*vet01*gl02*vet02*resint | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5798:2: 5798 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5799:2: 5799 | res1(kfix:lfix)*ve01nofix(i,j)*ve02nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5800:2: 5800 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5801:2: 5801 | res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5802:2: 5802 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5803:2: 5803 | res1(kfix:lfix)-u1*u2*ve01nofix(i,j)*ve02nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5804:2: 5804 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5805:2: 5805 | res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5806:2: 5806 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5807:2: 5807 | lfix=lfix+nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5808:2: 5808 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5810:2: 5810 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5812:2: 5812 | if(nva01nofix.gt.0 .AND. nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5815:2: 5815 | kfix=nvamax0102+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5816:2: 5816 | lfix=kfix-1+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5818:2: 5818 | do j=1,nva01nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5819:2: 5819 | res1(kfix:lfix)=-gl12*vet12*res201num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5820:2: 5820 | res212num-res20112num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5821:2: 5821 | resint=(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5822:2: 5822 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5823:2: 5823 | res1(kfix:lfix)*resint*ve01nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5824:2: 5824 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5825:2: 5825 | res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5826:2: 5826 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5827:2: 5827 | res1(kfix:lfix)-u1*u3*ve01nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5828:2: 5828 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5829:2: 5829 | res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5830:2: 5830 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5831:2: 5831 | lfix=lfix+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5832:2: 5832 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5834:2: 5834 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5837:2: 5837 | if(nva12nofix.gt.0 .AND. nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5839:2: 5839 | kfix=nvamax02+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5840:2: 5840 | lfix=kfix-1+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5842:2: 5842 | do j=1,nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5843:2: 5843 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5844:2: 5844 | -res20212num+gl12*vet12*res202num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5845:2: 5845 | resint=(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5846:2: 5846 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5847:2: 5847 | res1(kfix:lfix)*resint*ve02nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5848:2: 5848 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5849:2: 5849 | res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5850:2: 5850 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5851:2: 5851 | res1(kfix:lfix)-u2*u3*ve02nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5852:2: 5852 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5853:2: 5853 | res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5854:2: 5854 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5855:2: 5855 | lfix=lfix+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5856:2: 5856 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5858:2: 5858 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5864:2: 5864 | call fonct(t3(i),the01,ri01,gl01,su01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5865:2: 5865 | call fonct(t3(i),the02,ri02,gl02,su02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5866:2: 5866 | call fonct(t3(i),the12,ri12,gl12,su12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5867:10: 5867 | call qgaussweibderiv(t1(i),t3(i),the01,the02,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5868:10: 5868 | the12,res2denum,res201num,res202num,res212num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5869:10: 5869 | res20101num,res20102num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5870:2: 5870 | res20112num,res20202num,res20212num,res21212num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5871:10: 5871 | vet01,vet02,vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5874:2: 5874 | v=(su12**vet12)*ri12*vet12*res2denum+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5875:2: 5875 | (su01**vet01)*(su02**vet02)*ri02*vet02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5877:2: 5877 | if(nva01nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5879:2: 5879 | u1=-gl01*vet01*(su01**vet01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5880:2: 5880 | u1=u1*(su02**vet02)*ri02*vet02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5881:2: 5881 | u1=u1+(su12**vet12)*ri12*vet12*res201num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5884:2: 5884 | res1(1:nva01nofix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5885:2: 5885 | ve01nofix(i,:)*u1/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5886:2: 5886 | res1(1:nva01nofix)=res1(1:nva01nofix)+tronc01 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5888:2: 5888 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5889:2: 5889 | res20101num*(su12**vet12)*ri12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5890:2: 5890 | resint=(su01**vet01)*(su02**vet02)*gl01*vet01 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5891:2: 5891 | resint=resint*(1-gl01*vet01)*ri02*vet02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5892:2: 5892 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5893:2: 5893 | res1((nvamax+1):nvamax01)-resint | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5894:2: 5894 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5895:2: 5895 | res1((nvamax+1):nvamax01)*ve01square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5896:2: 5896 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5897:2: 5897 | res1((nvamax+1):nvamax01)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5898:2: 5898 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5899:2: 5899 | res1((nvamax+1):nvamax01)-ve01square(i,:)*((u1/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5900:2: 5900 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5901:2: 5901 | res1((nvamax+1):nvamax01)+tronc01square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5904:2: 5904 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5906:2: 5906 | if(nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5908:2: 5908 | u2=-(su12**vet12)*ri12*vet12*res202num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5909:2: 5909 | (1-gl02*vet02)*(su01**vet01)*(su02**vet02)*ri02*vet02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5911:2: 5911 | res1((nva01nofix+1):nva0102)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5912:2: 5912 | ve02nofix(i,:)*u2/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5913:2: 5913 | res1((nva01nofix+1):nva0102)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5914:2: 5914 | res1((nva01nofix+1):nva0102)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5915:2: 5915 | tronc02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5917:2: 5917 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5918:2: 5918 | -gl02*vet02*(su01**vet01)*(su02**vet02)*ri02*vet02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5919:2: 5919 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5920:2: 5920 | res1((nvamax0112+1):nvamax02)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5921:2: 5921 | (su12**vet12)*ri12*vet12*(res20202num-res202num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5922:2: 5922 | ((1-gl02*vet02)**2)*ri02*vet02*(su01**vet01)*(su02**vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5925:2: 5925 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5926:2: 5926 | res1((nvamax0112+1):nvamax02)*ve02square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5927:2: 5927 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5928:2: 5928 | res1((nvamax0112+1):nvamax02)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5929:2: 5929 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5930:2: 5930 | res1((nvamax0112+1):nvamax02)-ve02square(i,:)*((u2/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5931:2: 5931 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5932:2: 5932 | res1((nvamax0112+1):nvamax02)+tronc02square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5935:2: 5935 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5937:2: 5937 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5939:2: 5939 | u3=res212num+(1-gl12*vet12)*res2denum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5940:2: 5940 | u3=u3*(su12**vet12)*ri12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5942:2: 5942 | res1((nva0102+1):nvamax)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5943:2: 5943 | ve12nofix(i,:)*u3/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5945:2: 5945 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5946:2: 5946 | -gl12*vet12*res2denum+((1-gl12*vet12)**2)*res2denum+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5947:2: 5947 | 2*(1-gl12*vet12)*res212num+res212num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5948:2: 5948 | res21212num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5950:2: 5950 | resint=ri12*vet12*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5951:2: 5951 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5952:2: 5952 | res1((nvamax0212+1):nvamax12)*resint*ve12square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5953:2: 5953 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5954:2: 5954 | res1((nvamax0212+1):nvamax12)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5956:2: 5956 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5957:2: 5957 | res1((nvamax0212+1):nvamax12)-ve12square(i,:)*((u3/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5960:2: 5960 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5963:2: 5963 | if(nva01nofix.gt.0 .AND. nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5965:2: 5965 | kfix=nvamax01+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5966:2: 5966 | lfix=kfix-1+nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5968:2: 5968 | do j=1,nva01nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5969:2: 5969 | res1(kfix:lfix)=(-res202num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5970:2: 5970 | res20102num)*(su12**vet12)*ri12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5971:2: 5971 | resint=-gl01*vet01*(1-gl02*vet02)*(su01**vet01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5972:2: 5972 | resint=resint*(su02**vet02)*ri02*vet02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5973:2: 5973 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5974:2: 5974 | res1(kfix:lfix)+resint | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5975:2: 5975 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5976:2: 5976 | res1(kfix:lfix)*ve01nofix(i,j)*ve02nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5977:2: 5977 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5978:2: 5978 | res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5979:2: 5979 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5980:2: 5980 | res1(kfix:lfix)-u1*u2*ve01nofix(i,j)*ve02nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5981:2: 5981 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5982:2: 5982 | res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5983:2: 5983 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5984:2: 5984 | lfix=lfix+nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5985:2: 5985 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5987:2: 5987 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5989:2: 5989 | if(nva01nofix.gt.0 .AND. nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5992:2: 5992 | kfix=nvamax0102+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5993:2: 5993 | lfix=kfix-1+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5995:2: 5995 | do j=1,nva01nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5996:2: 5996 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5997:2: 5997 | (1-gl12*vet12)*res201num-res20112num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5998:2: 5998 | res212num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:5999:2: 5999 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6000:2: 6000 | res1(kfix:lfix)*ve01nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6001:2: 6001 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6002:2: 6002 | res1(kfix:lfix)*(su12**vet12)*ri12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6003:2: 6003 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6004:2: 6004 | res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6005:2: 6005 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6006:2: 6006 | res1(kfix:lfix)-u1*u3*ve01nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6007:2: 6007 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6008:2: 6008 | res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6009:2: 6009 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6010:2: 6010 | lfix=lfix+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6011:2: 6011 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6013:2: 6013 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6016:2: 6016 | if(nva12nofix.gt.0 .AND. nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6020:10: 6020 | kfix=nvamax02+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6021:2: 6021 | lfix=kfix-1+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6023:2: 6023 | do j=1,nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6024:2: 6024 | res1(kfix:lfix)=res20212num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6025:2: 6025 | (1-gl12*vet12)*res202num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6026:2: 6026 | resint=(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6027:2: 6027 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6028:2: 6028 | res1(kfix:lfix)*resint*ve02nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6029:2: 6029 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6030:2: 6030 | -res1(kfix:lfix)*ri12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6031:2: 6031 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6032:2: 6032 | res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6033:2: 6033 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6034:2: 6034 | res1(kfix:lfix)-u2*u3*ve02nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6035:2: 6035 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6036:2: 6036 | res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6037:2: 6037 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6038:2: 6038 | lfix=lfix+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6039:2: 6039 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6041:2: 6041 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6065:2: 6065 | deallocate(b,bfix,fix,ve01,ve02,ve12,ve01nofix,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6066:2: 6066 | ve02nofix,ve12nofix,tronc01,tronc02,t0,t1,t2,t3,c,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6067:2: 6067 | ve01square,ve02square,ve12square,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6068:2: 6068 | tronc01square,tronc02square) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6066:2: 6066 | ve02nofix,ve12nofix,tronc01,tronc02,t0,t1,t2,t3,c,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6067:2: 6067 | ve01square,ve02square,ve12square,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6068:2: 6068 | tronc01square,tronc02square) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6083:2: 6083 | use commun | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6087:2: 6087 | res20101num,res20102num,res20112num,res20202num,res20212num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6088:2: 6088 | res21212num,vet01,vet12,vet02,resint,v,u1,u2,u3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6090:2: 6090 | nz010,nz020,nz120,troncature0,dimnva01,dimnva02,dimnva12, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6091:2: 6091 | nva01nofix,nva12nofix,nva02nofix,nvamax, sizespline,nva0102,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6092:2: 6092 | nvamax01,nvamax0102,nvamax0112,nvamax02,nvamax0212,nvamax12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6094:2: 6094 | double precision,dimension(np0+np0*(np0+1)/2),intent(inout)::likelihood_deriv | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6095:2: 6095 | double precision,dimension(np0)::b0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6096:2: 6096 | double precision,dimension(np0+np0*(np0+1)/2)::res,res1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6098:2: 6098 | double precision,dimension(npar0-np0)::bfix0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6099:2: 6099 | integer,dimension(npar0)::fix0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6100:2: 6100 | double precision,dimension(-2:(nz010+3))::zi010 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6101:2: 6101 | double precision,dimension(-2:(nz020+3))::zi020 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6102:2: 6102 | double precision,dimension(-2:(nz120+3))::zi120 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6103:2: 6103 | double precision,dimension(-2:(nz010-1))::the01 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6104:2: 6104 | double precision,dimension(-2:(nz120-1))::the12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6105:2: 6105 | double precision,dimension(-2:(nz020-1))::the02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6107:2: 6107 | double precision,dimension(no0,dimnva02)::ve020 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6108:2: 6108 | double precision,dimension(no0,dimnva12)::ve120 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6112:2: 6112 | double precision,dimension(no0)::t00,t10,t20,t30 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6113:2: 6113 | integer,dimension(no0)::c0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6115:2: 6115 | allocate(b(np0),bfix(npar0-np0),fix(npar0)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6116:2: 6116 | b=b0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6117:2: 6117 | bfix=bfix0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6118:2: 6118 | fix=fix0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6119:2: 6119 | allocate(zi01(-2:(nz01+3)),zi12(-2:(nz12+3)),zi02(-2:(nz02+3))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6120:2: 6120 | zi01=zi010 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6121:2: 6121 | zi02=zi020 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6122:2: 6122 | zi12=zi120 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6125:2: 6125 | nz01=nz010 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6126:2: 6126 | nz02=nz020 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6127:2: 6127 | nz12=nz120 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6128:2: 6128 | sizespline=nz01+nz02+nz12+6 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6129:2: 6129 | troncature=troncature0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6132:2: 6132 | if(nva01.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6133:2: 6133 | nva01nofix=nva01-sum(fix((sizespline+1):(nva01+sizespline))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6134:2: 6134 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6135:2: 6135 | nva01nofix=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6136:2: 6136 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6138:2: 6138 | if(nva02.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6140:2: 6140 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6141:2: 6141 | nva02nofix=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6142:2: 6142 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6144:2: 6144 | if(nva12.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6145:2: 6145 | nva12nofix=nva12-sum(fix((nva01+nva02+sizespline+1):npar0)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6146:2: 6146 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6147:2: 6147 | nva12nofix=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6148:2: 6148 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6150:2: 6150 | nva0102=nva01nofix+nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6151:2: 6151 | nvamax=nva01nofix+nva02nofix+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6152:2: 6152 | nvamax01=nvamax+(nva01nofix+1)*nva01nofix/2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6153:2: 6153 | nvamax0102=nvamax01+nva01nofix*nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6154:2: 6154 | nvamax0112=nvamax0102+nva01nofix*nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6155:2: 6155 | nvamax02=nvamax0112+(nva02nofix+1)*nva02nofix/2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6156:2: 6156 | nvamax0212=nvamax02+nva02nofix*nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6157:2: 6157 | nvamax12=nvamax0212+(nva12nofix+1)*nva12nofix/2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6160:2: 6160 | if(nva01.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6161:2: 6161 | allocate(ve01(no0,nva01)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6162:2: 6162 | allocate(ve01nofix(no0,nva01nofix)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6163:2: 6163 | allocate(ve01square(no0,nva01nofix*(nva01nofix+1)/2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6164:2: 6164 | allocate(tronc01(nva01nofix)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6165:2: 6165 | allocate(tronc01square(nva01nofix*(nva01nofix+1)/2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6166:2: 6166 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6167:2: 6167 | allocate(ve01(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6168:2: 6168 | allocate(ve01nofix(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6169:2: 6169 | allocate(ve01square(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6170:2: 6170 | ve01square=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6171:2: 6171 | ve01nofix=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6172:2: 6172 | allocate(tronc01(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6173:2: 6173 | allocate(tronc01square(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6174:2: 6174 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6176:2: 6176 | if(nva02.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6177:2: 6177 | allocate(ve02(no0,nva02)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6178:2: 6178 | allocate(ve02nofix(no0,nva02nofix)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6179:2: 6179 | allocate(ve02square(no0,nva02nofix*(nva02nofix+1)/2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6180:2: 6180 | allocate(tronc02(nva02nofix)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6181:2: 6181 | allocate(tronc02square(nva02nofix*(nva02nofix+1)/2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6182:2: 6182 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6183:2: 6183 | allocate(ve02(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6184:2: 6184 | allocate(ve02nofix(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6185:2: 6185 | allocate(ve02square(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6186:2: 6186 | ve02square=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6187:2: 6187 | ve02nofix=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6188:2: 6188 | allocate(tronc02(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6189:2: 6189 | allocate(tronc02square(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6190:2: 6190 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6192:2: 6192 | if(nva12.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6193:2: 6193 | allocate(ve12(no0,nva12)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6194:2: 6194 | allocate(ve12nofix(no0,nva12nofix)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6195:2: 6195 | allocate(ve12square(no0,nva12nofix*(nva12nofix+1)/2)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6196:2: 6196 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6197:2: 6197 | allocate(ve12(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6198:2: 6198 | allocate(ve12nofix(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6199:2: 6199 | allocate(ve12square(no0,1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6200:2: 6200 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6203:2: 6203 | ve01=ve010 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6204:2: 6204 | ve02=ve020 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6205:2: 6205 | ve12=ve120 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6207:2: 6207 | allocate(t0(no0),t1(no0),t2(no0),t3(no0),c(no0)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6208:2: 6208 | c=c0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6209:2: 6209 | t0=t00 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6210:2: 6210 | t1=t10 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6211:2: 6211 | t2=t20 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6212:2: 6212 | t3=t30 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6223:2: 6223 | if(nva01.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6224:2: 6224 | do k=1,nva01 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6225:2: 6225 | if(fix((sizespline+k)).eq.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6226:2: 6226 | lfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6227:2: 6227 | ve01nofix(:,lfix)=ve01(:,k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6228:2: 6228 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6229:2: 6229 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6232:2: 6232 | do i=1,no0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6233:2: 6233 | lfix=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6234:2: 6234 | do l=1,nva01nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6235:2: 6235 | ve01square(i,lfix:(lfix+nva01nofix-l))=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6236:2: 6236 | ve01nofix(i,l:nva01nofix) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6237:2: 6237 | ve01square(i,lfix:(lfix+nva01nofix-l))=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6238:2: 6238 | ve01square(i,lfix:(lfix+nva01nofix-l))*ve01nofix(i,l) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6239:2: 6239 | lfix=lfix+nva01nofix-l+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6240:2: 6240 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6241:2: 6241 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6243:2: 6243 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6246:2: 6246 | lfix=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6247:2: 6247 | if(nva02.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6249:2: 6249 | do k=1,nva02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6250:2: 6250 | if(fix((sizespline+nva01+k)).eq.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6251:2: 6251 | lfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6252:2: 6252 | ve02nofix(:,lfix)=ve02(:,k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6253:2: 6253 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6254:2: 6254 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6256:2: 6256 | do i=1,no0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6257:2: 6257 | lfix=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6258:2: 6258 | do l=1,nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6259:2: 6259 | ve02square(i,lfix:(lfix+nva02nofix-l))=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6260:2: 6260 | ve02nofix(i,l)*ve02nofix(i,l:nva02nofix) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6261:2: 6261 | lfix=lfix+nva02nofix-l+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6262:2: 6262 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6263:2: 6263 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6265:2: 6265 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6268:2: 6268 | lfix=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6270:2: 6270 | if(nva12.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6271:2: 6271 | do k=1,nva12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6272:2: 6272 | if(fix((sizespline+nva01+nva02+k)).eq.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6273:2: 6273 | lfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6274:2: 6274 | ve12nofix(:,lfix)=ve12(:,k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6275:2: 6275 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6276:2: 6276 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6278:2: 6278 | do i=1,no0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6279:2: 6279 | lfix=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6280:2: 6280 | do l=1,nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6281:2: 6281 | ve12square(i,lfix:(lfix+nva12nofix-l))=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6282:2: 6282 | ve12nofix(i,l)*ve12nofix(i,l:nva12nofix) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6283:2: 6283 | lfix=lfix+nva12nofix-l+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6284:2: 6284 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6285:2: 6285 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6287:2: 6287 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6289:2: 6289 | l=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6297:2: 6297 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6327:2: 6327 | res = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6338:2: 6338 | vet01 =vet01 +& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6345:2: 6345 | vet02 =vet02 +& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6352:2: 6352 | vet12 =vet12 +& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6367:2: 6367 | tronc02 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6368:26: 6368 | tronc01square= 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6369:26: 6369 | tronc02square=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6372:2: 6372 | call susp(t0(i),the01,nz01,su01,ri01,zi01,gl01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6373:2: 6373 | call susp(t0(i),the02,nz02,su02,ri02,zi02,gl02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6375:26: 6375 | tronc02=ve02nofix(i,:)*(gl02*vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6376:26: 6376 | tronc01square=ve01square(i,:)*(gl01*vet01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6377:26: 6377 | tronc02square=ve02square(i,:)*(gl02*vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6381:20: 6381 | tronc02 = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6382:20: 6382 | tronc01square=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6383:20: 6383 | tronc02square=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6387:2: 6387 | call susp(t1(i),the01,nz01,su01,ri01,zi01,gl01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6388:2: 6388 | call susp(t1(i),the02,nz02,su02,ri02,zi02,gl02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6390:2: 6390 | if(nva01nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6392:2: 6392 | res1(1:nva01nofix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6393:2: 6393 | -ve01nofix(i,:)*gl01*vet01+tronc01 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6394:2: 6394 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6395:2: 6395 | -ve01square(i,:)*gl01*vet01+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6396:2: 6396 | tronc01square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6398:2: 6398 | if(nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6399:2: 6399 | res1((nvamax01+1):nvamax0102)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6400:2: 6400 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6402:2: 6402 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6403:2: 6403 | res1((nvamax0102+1):nvamax0112)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6404:2: 6404 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6406:2: 6406 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6408:2: 6408 | if(nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6410:2: 6410 | res1((nva01nofix+1):nva0102)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6411:2: 6411 | -ve02nofix(i,:)*gl02*vet02+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6412:2: 6412 | tronc02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6413:2: 6413 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6414:2: 6414 | -ve02square(i,:)*gl02*vet02+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6415:2: 6415 | tronc02square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6417:2: 6417 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6418:2: 6418 | res1((nvamax02+1):nvamax0212)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6419:2: 6419 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6421:2: 6421 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6423:2: 6423 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6425:2: 6425 | res1((nva0102+1):nvamax)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6426:2: 6426 | res1((nvamax0212+1):nvamax12)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6428:2: 6428 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6435:2: 6435 | call susp(t3(i),the12,nz12,su12,ri12,zi12,gl12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6436:2: 6436 | call qgausssplinederiv(t1(i),t2(i),the01,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6437:2: 6437 | the02,the12,res2denum,res201num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6438:2: 6438 | res202num,res212num,res20101num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6439:2: 6439 | res20102num,res20112num,res20202num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6440:2: 6440 | res20212num,res21212num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6441:2: 6441 | vet01,vet02,vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6444:2: 6444 | v=res2denum*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6446:2: 6446 | if(nva01nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6448:2: 6448 | u1=res201num*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6449:8: 6449 | res1(1:nva01nofix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6450:2: 6450 | ve01nofix(i,:)*u1/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6451:2: 6451 | res1(1:nva01nofix)=res1(1:nva01nofix)+tronc01 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6452:2: 6452 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6453:2: 6453 | ve01square(i,:)*res20101num*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6454:2: 6454 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6455:2: 6455 | res1((nvamax+1):nvamax01)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6456:2: 6456 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6457:2: 6457 | res1((nvamax+1):nvamax01)-ve01square(i,:)*((u1/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6458:2: 6458 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6459:2: 6459 | res1((nvamax+1):nvamax01)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6460:2: 6460 | tronc01square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6462:2: 6462 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6464:2: 6464 | if(nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6466:2: 6466 | u2=-res202num*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6467:2: 6467 | res1((nva01nofix+1):nva0102)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6468:2: 6468 | ve02nofix(i,:)*u2/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6469:2: 6469 | res1((nva01nofix+1):nva0102)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6470:2: 6470 | res1((nva01nofix+1):nva0102)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6471:2: 6471 | tronc02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6473:2: 6473 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6474:2: 6474 | -ve02square(i,:)*(su12**vet12)*(-res20202num+res202num) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6475:2: 6475 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6476:2: 6476 | res1((nvamax0112+1):nvamax02)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6477:2: 6477 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6478:2: 6478 | res1((nvamax0112+1):nvamax02)-ve02square(i,:)*((u2/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6479:2: 6479 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6480:2: 6480 | res1((nvamax0112+1):nvamax02)+tronc02square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6482:2: 6482 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6484:2: 6484 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6486:2: 6486 | u3=res212num-gl12*vet12*res2denum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6487:2: 6487 | u3=u3*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6488:2: 6488 | res1((nva0102+1):nvamax)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6489:2: 6489 | ve12nofix(i,:)*u3/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6491:2: 6491 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6492:2: 6492 | -2*gl12*vet12*res212num+res212num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6493:2: 6493 | res21212num-gl12*vet12*(1-gl12*vet12)*res2denum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6494:2: 6494 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6495:2: 6495 | res1((nvamax0212+1):nvamax12)*(su12**vet12)*ve12square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6496:2: 6496 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6497:2: 6497 | res1((nvamax0212+1):nvamax12)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6498:2: 6498 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6499:2: 6499 | res1((nvamax0212+1):nvamax12)-ve12square(i,:)*((u3/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6501:2: 6501 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6505:2: 6505 | if(nva01nofix.gt.0 .AND. nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6507:2: 6507 | kfix=nvamax01+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6508:2: 6508 | lfix=kfix-1+nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6510:2: 6510 | do j=1,nva01nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6512:2: 6512 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6513:2: 6513 | (res20102num-res202num)*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6514:2: 6514 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6515:2: 6515 | res1(kfix:lfix)*ve01nofix(i,j)*ve02nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6516:2: 6516 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6517:2: 6517 | res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6519:2: 6519 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6520:2: 6520 | res1(kfix:lfix)-u1*u2*ve01nofix(i,j)*ve02nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6521:2: 6521 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6522:2: 6522 | res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6523:2: 6523 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6524:2: 6524 | lfix=lfix+nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6526:2: 6526 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6528:2: 6528 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6530:2: 6530 | if(nva01nofix.gt.0 .AND. nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6532:2: 6532 | kfix=nvamax0102+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6533:2: 6533 | lfix=kfix-1+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6535:2: 6535 | do j=1,nva01nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6536:2: 6536 | res1(kfix:lfix)=-gl12*vet12*res201num-res20112num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6537:2: 6537 | res212num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6538:2: 6538 | res1(kfix:lfix)=res1(kfix:lfix)*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6539:2: 6539 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6540:2: 6540 | res1(kfix:lfix)*ve01nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6541:2: 6541 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6542:2: 6542 | res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6543:2: 6543 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6544:2: 6544 | res1(kfix:lfix)-u1*u3*ve01nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6545:2: 6545 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6546:2: 6546 | res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6547:2: 6547 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6548:2: 6548 | lfix=lfix+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6549:2: 6549 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6551:2: 6551 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6554:2: 6554 | if(nva12nofix.gt.0 .AND. nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6556:2: 6556 | kfix=nvamax02+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6557:2: 6557 | lfix=kfix-1+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6559:2: 6559 | do j=1,nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6560:2: 6560 | res1(kfix:lfix)=-res20212num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6561:2: 6561 | gl12*vet12*res202num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6562:2: 6562 | res1(kfix:lfix)=res1(kfix:lfix)*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6563:2: 6563 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6564:2: 6564 | res1(kfix:lfix)*ve02nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6565:2: 6565 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6566:2: 6566 | res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6567:2: 6567 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6568:2: 6568 | res1(kfix:lfix)-u2*u3*ve02nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6569:2: 6569 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6570:2: 6570 | res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6571:2: 6571 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6572:2: 6572 | lfix=lfix+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6573:2: 6573 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6575:2: 6575 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6581:2: 6581 | call susp(t1(i),the01,nz01,su01,ri01,zi01,gl01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6582:2: 6582 | call susp(t1(i),the02,nz02,su02,ri02,zi02,gl02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6583:2: 6583 | call susp(t1(i),the12,nz12,su12,ri12,zi12,gl12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6586:2: 6586 | if(nva01nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6588:2: 6588 | res1(1:nva01nofix)=-ve01nofix(i,:)*gl01*vet01+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6589:2: 6589 | tronc01+ve01nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6590:2: 6590 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6591:2: 6591 | -ve01square(i,:)*gl01*vet01+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6592:2: 6592 | tronc01square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6594:2: 6594 | if(nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6595:2: 6595 | res1((nvamax01+1):nvamax0102)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6596:2: 6596 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6598:2: 6598 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6599:2: 6599 | res1((nvamax0102+1):nvamax0112)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6600:2: 6600 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6602:2: 6602 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6604:2: 6604 | if(nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6606:2: 6606 | res1((nva01nofix+1):nva0102)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6607:2: 6607 | -ve02nofix(i,:)*gl02*vet02+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6608:2: 6608 | tronc02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6609:2: 6609 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6610:2: 6610 | -ve02square(i,:)*gl02*vet02+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6611:2: 6611 | tronc02square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6613:2: 6613 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6614:2: 6614 | res1((nvamax02+1):nvamax0212)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6615:2: 6615 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6617:2: 6617 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6619:2: 6619 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6621:2: 6621 | res1((nva0102+1):nvamax)=gl12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6622:2: 6622 | res1((nvamax0212+1):nvamax12)=gl12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6623:2: 6623 | call susp(t3(i),the12,nz12,su12,ri12,zi12,gl12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6624:2: 6624 | res1((nva0102+1):nvamax)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6625:2: 6625 | res1((nva0102+1):nvamax)-gl12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6626:2: 6626 | res1((nva0102+1):nvamax)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6627:2: 6627 | res1((nva0102+1):nvamax)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6628:2: 6628 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6629:2: 6629 | res1((nvamax0212+1):nvamax12)-gl12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6630:2: 6630 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6631:2: 6631 | res1((nvamax0212+1):nvamax12)*ve12square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6634:2: 6634 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6641:2: 6641 | call susp(t3(i),the12,nz12,su12,ri12,zi12,gl12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6642:2: 6642 | call qgausssplinederiv(t1(i),t2(i),the01,the02,the12,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6643:2: 6643 | res2denum,res201num,res202num,res212num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6644:2: 6644 | res20101num,res20102num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6645:2: 6645 | res20112num,res20202num,res20212num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6646:2: 6646 | res21212num,vet01,vet02,vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6649:2: 6649 | v=res2denum*(su12**vet12)*ri12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6651:2: 6651 | if(nva01nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6653:2: 6653 | u1=res201num*(su12**vet12)*ri12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6654:2: 6654 | res1(1:nva01nofix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6655:2: 6655 | ve01nofix(i,:)*u1/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6656:2: 6656 | res1(1:nva01nofix)=res1(1:nva01nofix)+tronc01 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6658:2: 6658 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6659:2: 6659 | res20101num*(su12**vet12)*ri12*vet12*ve01square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6660:2: 6660 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6661:2: 6661 | res1((nvamax+1):nvamax01)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6662:2: 6662 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6663:2: 6663 | res1((nvamax+1):nvamax01)-ve01square(i,:)*((u1/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6664:2: 6664 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6665:2: 6665 | res1((nvamax+1):nvamax01)+tronc01square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6668:2: 6668 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6670:2: 6670 | if(nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6672:2: 6672 | u2=-res202num*(su12**vet12)*ri12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6673:2: 6673 | res1((nva01nofix+1):(nva01nofix+nva02nofix))=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6674:2: 6674 | ve02nofix(i,:)*u2/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6675:2: 6675 | res1((nva01nofix+1):nva0102)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6676:2: 6676 | res1((nva01nofix+1):nva0102)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6677:2: 6677 | tronc02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6679:2: 6679 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6680:2: 6680 | (res20202num-res202num)*ri12*vet12*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6681:2: 6681 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6682:2: 6682 | res1((nvamax0112+1):nvamax02)*ve02square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6683:2: 6683 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6684:2: 6684 | res1((nvamax0112+1):nvamax02)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6685:2: 6685 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6686:2: 6686 | res1((nvamax0112+1):nvamax02)-ve02square(i,:)*((u2/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6687:2: 6687 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6688:2: 6688 | res1((nvamax0112+1):nvamax02)+tronc02square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6691:2: 6691 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6693:2: 6693 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6695:2: 6695 | u3=res212num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6696:2: 6696 | (1-gl12*vet12)*res2denum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6697:2: 6697 | u3=u3*(su12**vet12)*ri12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6698:2: 6698 | res1((nva0102+1):nvamax)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6699:2: 6699 | ve12nofix(i,:)*u3/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6701:2: 6701 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6702:2: 6702 | (1-gl12*vet12)*res212num+res21212num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6703:2: 6703 | ((1-gl12*vet12)**2)*res2denum+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6704:2: 6704 | (2-gl12*vet12)*res212num-gl12*vet12*res2denum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6705:2: 6705 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6706:2: 6706 | res1((nvamax0212+1):nvamax12)*(su12**vet12)*ri12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6707:2: 6707 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6708:2: 6708 | res1((nvamax0212+1):nvamax12)*ve12square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6709:2: 6709 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6710:2: 6710 | res1((nvamax0212+1):nvamax12)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6711:2: 6711 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6712:2: 6712 | res1((nvamax0212+1):nvamax12)-ve12square(i,:)*((u3/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6715:2: 6715 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6719:2: 6719 | if(nva01nofix.gt.0 .AND. nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6721:2: 6721 | kfix=nvamax01+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6722:2: 6722 | lfix=kfix-1+nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6724:2: 6724 | do j=1,nva01nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6725:2: 6725 | res1(kfix:lfix)=(-res202num+res20102num)*ri12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6726:2: 6726 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6727:2: 6727 | res1(kfix:lfix)*ve01nofix(i,j)*ve02nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6728:2: 6728 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6729:2: 6729 | res1(kfix:lfix)*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6730:2: 6730 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6731:2: 6731 | res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6732:2: 6732 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6733:2: 6733 | res1(kfix:lfix)-u1*u2*ve01nofix(i,j)*ve02nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6734:2: 6734 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6735:2: 6735 | res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6736:2: 6736 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6737:2: 6737 | lfix=lfix+nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6738:2: 6738 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6740:2: 6740 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6743:2: 6743 | if(nva01nofix.gt.0 .AND. nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6745:2: 6745 | kfix=nvamax0102+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6746:2: 6746 | lfix=kfix-1+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6748:2: 6748 | do j=1,nva01nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6749:2: 6749 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6750:2: 6750 | (1-gl12*vet12)*res201num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6751:2: 6751 | res212num-res20112num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6752:2: 6752 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6753:2: 6753 | res1(kfix:lfix)*ve01nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6754:2: 6754 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6755:2: 6755 | res1(kfix:lfix)*ri12*vet12*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6756:2: 6756 | res1(kfix:lfix)=res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6757:2: 6757 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6758:2: 6758 | res1(kfix:lfix)-u1*u3*ve01nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6759:2: 6759 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6760:2: 6760 | res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6761:2: 6761 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6762:2: 6762 | lfix=lfix+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6763:2: 6763 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6766:2: 6766 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6769:2: 6769 | if(nva12nofix.gt.0 .AND. nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6771:2: 6771 | kfix=nvamax02+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6772:2: 6772 | lfix=kfix-1+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6774:2: 6774 | do j=1,nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6775:2: 6775 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6776:2: 6776 | res20212num+(1-gl12*vet12)*res202num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6777:2: 6777 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6778:2: 6778 | -res1(kfix:lfix)*ve02nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6779:2: 6779 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6780:2: 6780 | res1(kfix:lfix)*ri12*vet12*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6781:2: 6781 | res1(kfix:lfix)=res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6782:2: 6782 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6783:2: 6783 | res1(kfix:lfix)-ve02nofix(i,j)*ve12nofix(i,:)*u2*u3 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6784:2: 6784 | res1(kfix:lfix)=res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6785:2: 6785 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6786:2: 6786 | lfix=lfix+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6787:2: 6787 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6789:2: 6789 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6797:2: 6797 | call susp(t1(i),the01,nz01,su01,ri01,zi01,gl01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6798:2: 6798 | call susp(t1(i),the02,nz02,su02,ri02,zi02,gl02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6799:2: 6799 | call susp(t1(i),the12,nz12,su12,ri12,zi12,gl12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6801:2: 6801 | if(nva01nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6803:2: 6803 | res1(1:nva01nofix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6804:2: 6804 | -ve01nofix(i,:)*gl01*vet01+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6805:2: 6805 | ve01nofix(i,:)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6806:2: 6806 | tronc01 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6807:2: 6807 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6808:2: 6808 | -ve01square(i,:)*gl01*vet01+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6809:2: 6809 | tronc01square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6811:2: 6811 | if(nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6812:2: 6812 | res1((nvamax01+1):nvamax0102)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6813:2: 6813 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6815:2: 6815 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6816:2: 6816 | res1((nvamax0102+1):nvamax0112)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6817:2: 6817 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6819:2: 6819 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6821:2: 6821 | if(nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6823:2: 6823 | res1((nva01nofix+1):nva0102)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6824:2: 6824 | -ve02nofix(i,:)*gl02*vet02+tronc02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6825:2: 6825 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6826:2: 6826 | -ve02square(i,:)*gl02*vet02+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6827:2: 6827 | tronc02square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6829:2: 6829 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6830:2: 6830 | res1((nvamax02+1):nvamax0212)=0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6831:2: 6831 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6833:2: 6833 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6835:2: 6835 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6837:2: 6837 | res1((nva0102+1):nvamax)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6838:2: 6838 | ve12nofix(i,:)*gl12*vet12+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6839:2: 6839 | ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6840:2: 6840 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6841:2: 6841 | gl12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6842:2: 6842 | call susp(t3(i),the12,nz12,su12,ri12,zi12,gl12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6844:2: 6844 | res1((nva0102+1):nvamax)-ve12nofix(i,:)*gl12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6845:2: 6845 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6846:2: 6846 | res1((nvamax0212+1):nvamax12)-gl12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6847:2: 6847 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6848:2: 6848 | res1((nvamax0212+1):nvamax12)*ve12square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6850:2: 6850 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6855:2: 6855 | call susp(t3(i),the01,nz01,su01,ri01,zi01,gl01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6856:2: 6856 | call susp(t3(i),the02,nz02,su02,ri02,zi02,gl02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6857:2: 6857 | call susp(t3(i),the12,nz12,su12,ri12,zi12,gl12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6858:2: 6858 | call qgausssplinederiv(t1(i),t3(i),the01,the02,the12,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6859:2: 6859 | res2denum,res201num,res202num,res212num,res20101num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6860:2: 6860 | res20102num,res20112num,res20202num,res20212num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6861:2: 6861 | res21212num,vet01,vet02,vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6864:2: 6864 | v=(su12**vet12)*res2denum+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6865:2: 6865 | (su01**vet01)*(su02**vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6867:2: 6867 | if(nva01nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6869:2: 6869 | u1=(-gl01*vet01)*(su01**vet01)*(su02**vet02)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6870:2: 6870 | (su12**vet12)*res201num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6871:2: 6871 | res1(1:nva01nofix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6872:2: 6872 | ve01nofix(i,:)*u1/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6873:2: 6873 | res1(1:nva01nofix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6874:2: 6874 | res1(1:nva01nofix)+tronc01 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6876:2: 6876 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6877:2: 6877 | res20101num*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6878:2: 6878 | resint=(su01**vet01)*(su02**vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6879:2: 6879 | resint=resint*gl01*vet01*(1-gl01*vet01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6880:2: 6880 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6881:2: 6881 | res1((nvamax+1):nvamax01)-resint | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6883:2: 6883 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6884:2: 6884 | res1((nvamax+1):nvamax01)*ve01square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6885:2: 6885 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6886:2: 6886 | res1((nvamax+1):nvamax01)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6888:2: 6888 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6889:2: 6889 | res1((nvamax+1):nvamax01)-ve01square(i,:)*((u1/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6890:2: 6890 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6891:2: 6891 | res1((nvamax+1):nvamax01)+tronc01square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6893:2: 6893 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6896:2: 6896 | if(nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6898:2: 6898 | u2=-gl02*vet02*(su01**vet01)*(su02**vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6899:2: 6899 | u2=u2-(su12**vet12)*res202num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6900:2: 6900 | res1((nva01nofix+1):nva0102)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6901:2: 6901 | ve02nofix(i,:)*u2/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6902:2: 6902 | res1((nva01nofix+1):nva0102)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6903:2: 6903 | res1((nva01nofix+1):nva0102)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6904:2: 6904 | tronc02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6906:2: 6906 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6907:2: 6907 | (su12**vet12)*(res20202num-res202num)-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6908:2: 6908 | gl02*vet02*(su01**vet01)*(su02**vet02)*(1-gl02*vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6909:2: 6909 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6910:2: 6910 | res1((nvamax0112+1):nvamax02)*ve02square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6911:2: 6911 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6912:2: 6912 | res1((nvamax0112+1):nvamax02)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6914:2: 6914 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6915:2: 6915 | res1((nvamax0112+1):nvamax02)-ve02square(i,:)*((u2/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6916:2: 6916 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6917:2: 6917 | res1((nvamax0112+1):nvamax02)+tronc02square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6919:2: 6919 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6921:2: 6921 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6923:2: 6923 | u3=-gl12*vet12*(su12**vet12)*res2denum+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6924:2: 6924 | (su12**vet12)*res212num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6925:2: 6925 | res1((nva0102+1):nvamax)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6926:2: 6926 | ve12nofix(i,:)*u3/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6928:2: 6928 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6929:2: 6929 | res21212num+(1-gl12*vet12)*res212num-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6930:2: 6930 | gl12*vet12*(1-gl12*vet12)*res2denum-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6931:2: 6931 | gl12*vet12*res212num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6932:2: 6932 | resint=(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6933:2: 6933 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6934:2: 6934 | res1((nvamax0212+1):nvamax12)*resint*ve12square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6935:2: 6935 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6936:2: 6936 | res1((nvamax0212+1):nvamax12)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6937:2: 6937 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6938:2: 6938 | res1((nvamax0212+1):nvamax12)-ve12square(i,:)*((u3/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6940:2: 6940 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6944:2: 6944 | if(nva01nofix.gt.0 .AND. nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6946:2: 6946 | kfix=nvamax01+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6947:2: 6947 | lfix=kfix-1+nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6949:2: 6949 | do j=1,nva01nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6950:2: 6950 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6951:2: 6951 | -(res202num-res20102num)*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6952:2: 6952 | resint=(su01**vet01)*(su02**vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6953:2: 6953 | res1(kfix:lfix)=res1(kfix:lfix)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6954:2: 6954 | gl01*vet01*gl02*vet02*resint | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6955:2: 6955 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6956:2: 6956 | res1(kfix:lfix)*ve01nofix(i,j)*ve02nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6957:2: 6957 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6958:2: 6958 | res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6959:2: 6959 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6960:2: 6960 | res1(kfix:lfix)-u1*u2*ve01nofix(i,j)*ve02nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6961:2: 6961 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6962:2: 6962 | res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6963:2: 6963 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6964:2: 6964 | lfix=lfix+nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6965:2: 6965 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6967:2: 6967 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6969:2: 6969 | if(nva01nofix.gt.0 .AND. nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6971:2: 6971 | kfix=nvamax0102+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6972:2: 6972 | lfix=kfix-1+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6974:2: 6974 | do j=1,nva01nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6975:2: 6975 | res1(kfix:lfix)=-gl12*vet12*res201num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6976:2: 6976 | res212num-res20112num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6977:2: 6977 | resint=(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6978:2: 6978 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6979:2: 6979 | res1(kfix:lfix)*resint*ve01nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6980:2: 6980 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6981:2: 6981 | res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6982:2: 6982 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6983:2: 6983 | res1(kfix:lfix)-u1*u3*ve01nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6984:2: 6984 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6985:2: 6985 | res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6986:2: 6986 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6987:2: 6987 | lfix=lfix+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6988:2: 6988 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6990:2: 6990 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6995:2: 6995 | if(nva12nofix.gt.0 .AND. nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6997:2: 6997 | kfix=nvamax02+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:6998:2: 6998 | lfix=kfix-1+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7000:2: 7000 | do j=1,nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7001:2: 7001 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7002:2: 7002 | -res20212num+gl12*vet12*res202num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7003:2: 7003 | resint=(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7004:2: 7004 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7005:2: 7005 | res1(kfix:lfix)*resint*ve02nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7006:2: 7006 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7007:2: 7007 | res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7008:2: 7008 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7009:2: 7009 | res1(kfix:lfix)-u2*u3*ve02nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7010:2: 7010 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7011:2: 7011 | res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7012:2: 7012 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7013:2: 7013 | lfix=lfix+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7014:2: 7014 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7016:2: 7016 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7022:2: 7022 | call susp(t3(i),the01,nz01,su01,ri01,zi01,gl01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7023:2: 7023 | call susp(t3(i),the02,nz02,su02,ri02,zi02,gl02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7024:2: 7024 | call susp(t3(i),the12,nz12,su12,ri12,zi12,gl12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7025:10: 7025 | call qgausssplinederiv(t1(i),t3(i),the01,the02,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7026:10: 7026 | the12,res2denum,res201num,res202num,res212num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7027:10: 7027 | res20101num,res20102num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7028:2: 7028 | res20112num,res20202num,res20212num,res21212num,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7029:10: 7029 | vet01,vet02,vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7033:2: 7033 | v=(su12**vet12)*ri12*vet12*res2denum+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7034:2: 7034 | (su01**vet01)*(su02**vet02)*ri02*vet02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7037:2: 7037 | if(nva01nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7039:2: 7039 | u1=-gl01*vet01*(su01**vet01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7040:2: 7040 | u1=u1*(su02**vet02)*ri02*vet02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7041:2: 7041 | u1=u1+(su12**vet12)*ri12*vet12*res201num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7043:2: 7043 | res1(1:nva01nofix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7044:2: 7044 | ve01nofix(i,:)*u1/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7045:2: 7045 | res1(1:nva01nofix)=res1(1:nva01nofix)+tronc01 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7047:2: 7047 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7048:2: 7048 | res20101num*(su12**vet12)*ri12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7049:2: 7049 | resint=(su01**vet01)*(su02**vet02)*gl01*vet01 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7050:2: 7050 | resint=resint*(1-gl01*vet01)*ri02*vet02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7051:2: 7051 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7052:2: 7052 | res1((nvamax+1):nvamax01)-resint | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7053:2: 7053 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7054:2: 7054 | res1((nvamax+1):nvamax01)*ve01square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7055:2: 7055 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7056:2: 7056 | res1((nvamax+1):nvamax01)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7057:2: 7057 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7058:2: 7058 | res1((nvamax+1):nvamax01)-ve01square(i,:)*((u1/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7059:2: 7059 | res1((nvamax+1):nvamax01)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7060:2: 7060 | res1((nvamax+1):nvamax01)+tronc01square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7062:2: 7062 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7065:2: 7065 | if(nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7067:2: 7067 | u2=-(su12**vet12)*ri12*vet12*res202num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7068:2: 7068 | (1-gl02*vet02)*(su01**vet01)*(su02**vet02)*ri02*vet02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7070:2: 7070 | res1((nva01nofix+1):nva0102)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7071:2: 7071 | ve02nofix(i,:)*u2/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7072:2: 7072 | res1((nva01nofix+1):nva0102)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7073:2: 7073 | res1((nva01nofix+1):nva0102)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7074:2: 7074 | tronc02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7076:2: 7076 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7077:2: 7077 | -gl02*vet02*(su01**vet01)*(su02**vet02)*ri02*vet02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7078:2: 7078 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7079:2: 7079 | res1((nvamax0112+1):nvamax02)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7080:2: 7080 | (su12**vet12)*ri12*vet12*(res20202num-res202num)+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7081:2: 7081 | ((1-gl02*vet02)**2)*ri02*vet02*(su01**vet01)*(su02**vet02) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7084:2: 7084 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7085:2: 7085 | res1((nvamax0112+1):nvamax02)*ve02square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7086:2: 7086 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7087:2: 7087 | res1((nvamax0112+1):nvamax02)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7088:2: 7088 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7089:2: 7089 | res1((nvamax0112+1):nvamax02)-ve02square(i,:)*((u2/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7090:2: 7090 | res1((nvamax0112+1):nvamax02)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7091:2: 7091 | res1((nvamax0112+1):nvamax02)+tronc02square | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7093:2: 7093 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7095:2: 7095 | if(nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7097:2: 7097 | u3=res212num+(1-gl12*vet12)*res2denum | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7098:2: 7098 | u3=u3*(su12**vet12)*ri12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7100:2: 7100 | res1((nva0102+1):nvamax)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7101:2: 7101 | ve12nofix(i,:)*u3/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7103:2: 7103 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7104:2: 7104 | -gl12*vet12*res2denum+((1-gl12*vet12)**2)*res2denum+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7105:2: 7105 | 2*(1-gl12*vet12)*res212num+res212num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7106:2: 7106 | res21212num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7108:2: 7108 | resint=ri12*vet12*(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7109:2: 7109 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7110:2: 7110 | res1((nvamax0212+1):nvamax12)*resint*ve12square(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7111:2: 7111 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7112:2: 7112 | res1((nvamax0212+1):nvamax12)/v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7114:2: 7114 | res1((nvamax0212+1):nvamax12)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7115:2: 7115 | res1((nvamax0212+1):nvamax12)-ve12square(i,:)*((u3/v)**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7117:2: 7117 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7122:2: 7122 | if(nva01nofix.gt.0 .AND. nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7124:2: 7124 | kfix=nvamax01+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7125:2: 7125 | lfix=kfix-1+nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7127:2: 7127 | do j=1,nva01nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7128:2: 7128 | res1(kfix:lfix)=(-res202num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7129:2: 7129 | res20102num)*(su12**vet12)*ri12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7130:2: 7130 | resint=-gl01*vet01*(1-gl02*vet02)*(su01**vet01) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7131:2: 7131 | resint=resint*(su02**vet02)*ri02*vet02 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7132:2: 7132 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7133:2: 7133 | res1(kfix:lfix)+resint | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7134:2: 7134 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7135:2: 7135 | res1(kfix:lfix)*ve01nofix(i,j)*ve02nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7136:2: 7136 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7137:2: 7137 | res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7138:2: 7138 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7139:2: 7139 | res1(kfix:lfix)-u1*u2*ve01nofix(i,j)*ve02nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7140:2: 7140 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7141:2: 7141 | res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7142:2: 7142 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7143:2: 7143 | lfix=lfix+nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7144:2: 7144 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7146:2: 7146 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7149:2: 7149 | if(nva01nofix.gt.0 .AND. nva12nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7151:2: 7151 | kfix=nvamax0102+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7152:2: 7152 | lfix=kfix-1+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7154:2: 7154 | do j=1,nva01nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7155:2: 7155 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7156:2: 7156 | (1-gl12*vet12)*res201num-res20112num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7157:2: 7157 | res212num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7158:2: 7158 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7159:2: 7159 | res1(kfix:lfix)*ve01nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7160:2: 7160 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7161:2: 7161 | res1(kfix:lfix)*(su12**vet12)*ri12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7162:2: 7162 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7163:2: 7163 | res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7164:2: 7164 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7165:2: 7165 | res1(kfix:lfix)-u1*u3*ve01nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7166:2: 7166 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7167:2: 7167 | res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7168:2: 7168 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7169:2: 7169 | lfix=lfix+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7170:2: 7170 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7172:2: 7172 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7176:2: 7176 | if(nva12nofix.gt.0 .AND. nva02nofix.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7178:10: 7178 | kfix=nvamax02+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7179:2: 7179 | lfix=kfix-1+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7181:2: 7181 | do j=1,nva02nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7182:2: 7182 | res1(kfix:lfix)=res20212num+& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7183:2: 7183 | (1-gl12*vet12)*res202num | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7184:2: 7184 | resint=(su12**vet12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7185:2: 7185 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7186:2: 7186 | res1(kfix:lfix)*resint*ve02nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7187:2: 7187 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7188:2: 7188 | -res1(kfix:lfix)*ri12*vet12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7189:2: 7189 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7190:2: 7190 | res1(kfix:lfix)*v | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7191:2: 7191 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7192:2: 7192 | res1(kfix:lfix)-u2*u3*ve02nofix(i,j)*ve12nofix(i,:) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7193:2: 7193 | res1(kfix:lfix)=& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7194:2: 7194 | res1(kfix:lfix)/(v**2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7195:2: 7195 | kfix=lfix+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7196:2: 7196 | lfix=lfix+nva12nofix | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7197:2: 7197 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7199:2: 7199 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7219:2: 7219 | deallocate(b,bfix,fix,zi01,zi02,zi12,ve01,ve02,ve12,ve01nofix,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7220:2: 7220 | ve02nofix,ve12nofix,tronc01,tronc02,t0,t1,t2,t3,c,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7221:2: 7221 | ve01square,ve02square,ve12square,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7222:2: 7222 | tronc01square,tronc02square) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7220:2: 7220 | ve02nofix,ve12nofix,tronc01,tronc02,t0,t1,t2,t3,c,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7221:2: 7221 | ve01square,ve02square,ve12square,& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] idmlikelihood.f90:7222:2: 7222 | tronc01square,tronc02square) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] gcc -I"D:/RCompile/recent/R/include" -DNDEBUG -I"d:/rtools44/x86_64-w64-mingw32.static.posix/include" -DSTRICT_R_HEADERS=1 -pedantic -Wstrict-prototypes -O2 -Wall -mfpmath=sse -msse2 -mstackrealign -c init.c -o init.o gcc -shared -s -static-libgcc -o SmoothHazardoptim9.dll tmp.def commun.o idmlikelihood.o init.o -LD:/RCompile/recent/R/bin/x64 -lRblas -lgfortran -lm -lquadmath -Ld:/rtools44/x86_64-w64-mingw32.static.posix/lib/x64 -Ld:/rtools44/x86_64-w64-mingw32.static.posix/lib -lgfortran -lm -lquadmath -LD:/RCompile/recent/R/bin/x64 -lR installing to d:/RCompile/CRANincoming/R-devel/lib/00LOCK-SmoothHazardoptim9/00new/SmoothHazardoptim9/libs/x64 ** R ** byte-compile and prepare package for lazy loading ** help *** installing help indices *** copying figures ** building package indices ** testing if installed package can be loaded from temporary location ** testing if installed package can be loaded from final location ** testing if installed package keeps a record of temporary installation path * DONE (SmoothHazardoptim9)