* installing *source* package ‘frailtypack’ ... ** using staged installation ** libs using C compiler: ‘Debian clang version 16.0.6 (16)’ using Fortran compiler: ‘GNU Fortran (Debian 13.2.0-5) 13.2.0’ gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c Adonnees.f90 -o Adonnees.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c AparamMultive.f90 -o AparamMultive.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c Aparameters.f90 -o Aparameters.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c autres_fonctions.f90 -o autres_fonctions.o autres_fonctions.f90:1893:10: 1893 | k=k+n_i(i) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] autres_fonctions.f90:625:9: 625 | n1=k+n_i(i)-1 | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] autres_fonctions.f90:636:8: 636 | k=k+n_i(i) | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] autres_fonctions.f90:2125:95: 2125 | subroutine Generation_surrogate_copula(don_simul,don_simulS1,n_obs,n_col,lognormal,affiche_stat,vrai_theta,& | 1 Warning: Unused dummy argument ‘affiche_stat’ at (1) [-Wunused-dummy-argument] autres_fonctions.f90:2174:77: 2174 | double precision :: ui,temps1,temps1_S,gapx,gapdc,moy_idnum,cens,cbeta2,& | 1 Warning: Unused variable ‘cbeta2’ declared at (1) [-Wunused-variable] autres_fonctions.f90:2175:44: 2175 | auxbeta1,auxbeta2,uniran,moyui, cbeta4 | 1 Warning: Unused variable ‘cbeta4’ declared at (1) [-Wunused-variable] autres_fonctions.f90:2126:55: 2126 | ng,ver,truealpha,propC,cens_A,gamma1,gamma2,theta2,lambda_S,nu_S,lambda_T,nu_T,betas,& | 1 Warning: Unused dummy argument ‘gamma2’ at (1) [-Wunused-dummy-argument] autres_fonctions.f90:2170:56: 2170 | integer :: nb_recur,nb_dc,nb_cens,delta,deltadc,jj,ig,nrecurr,nobs,max_recu, nobs_save, nobs_temp | 1 Warning: Unused variable ‘jj’ declared at (1) [-Wunused-variable] autres_fonctions.f90:2174:65: 2174 | double precision :: ui,temps1,temps1_S,gapx,gapdc,moy_idnum,cens,cbeta2,& | 1 Warning: Unused variable ‘moy_idnum’ declared at (1) [-Wunused-variable] autres_fonctions.f90:2162:20: 2162 | integer j,k,n,ii,iii,iii2,i,nbou | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] autres_fonctions.f90:2170:92: 2170 | integer :: nb_recur,nb_dc,nb_cens,delta,deltadc,jj,ig,nrecurr,nobs,max_recu, nobs_save, nobs_temp | 1 Warning: Unused variable ‘nobs_save’ declared at (1) [-Wunused-variable] autres_fonctions.f90:2170:103: 2170 | integer :: nb_recur,nb_dc,nb_cens,delta,deltadc,jj,ig,nrecurr,nobs,max_recu, nobs_save, nobs_temp | 1 Warning: Unused variable ‘nobs_temp’ declared at (1) [-Wunused-variable] autres_fonctions.f90:2166:34: 2166 | character*18 nomvar(nvarmax),nomvar2(nvarmax) | 1 Warning: Unused variable ‘nomvar’ declared at (1) [-Wunused-variable] autres_fonctions.f90:2166:51: 2166 | character*18 nomvar(nvarmax),nomvar2(nvarmax) | 1 Warning: Unused variable ‘nomvar2’ declared at (1) [-Wunused-variable] autres_fonctions.f90:2127:49: 2127 | betat,n_essai,rsqrt,sigma_s,sigma_t,p,prop_i,gamma,alpha,frailt_base,thetacopule,filtre, filtre2,& | 1 Warning: Unused dummy argument ‘p’ at (1) [-Wunused-dummy-argument] autres_fonctions.f90:2126:28: 2126 | ng,ver,truealpha,propC,cens_A,gamma1,gamma2,theta2,lambda_S,nu_S,lambda_T,nu_T,betas,& | 1 Warning: Unused dummy argument ‘truealpha’ at (1) [-Wunused-dummy-argument] autres_fonctions.f90:2174:28: 2174 | double precision :: ui,temps1,temps1_S,gapx,gapdc,moy_idnum,cens,cbeta2,& | 1 Warning: Unused variable ‘ui’ declared at (1) [-Wunused-variable] autres_fonctions.f90:2179:48: 2179 | double precision, dimension(ngmax):: vecui | 1 Warning: Unused variable ‘vecui’ declared at (1) [-Wunused-variable] autres_fonctions.f90:2189:27: 2189 | double precision::x22,sigma_st,u_i,tempon | 1 Warning: Unused variable ‘x22’ declared at (1) [-Wunused-variable] autres_fonctions.f90:1731:88: 1731 | subroutine Generation_surrogate(don_simul,don_simulS1,n_obs,n_col,lognormal,affiche_stat,vrai_theta,& | 1 Warning: Unused dummy argument ‘affiche_stat’ at (1) [-Wunused-dummy-argument] autres_fonctions.f90:1772:90: 1772 | double precision :: ui,temps1,temps1_S,gapx,gapdc,moy_idnum,x,xdc,cens,cbeta1,cbeta2,cbeta3,& | 1 Warning: Unused variable ‘cbeta2’ declared at (1) [-Wunused-variable] autres_fonctions.f90:1732:55: 1732 | ng,ver,truealpha,propC,cens_A,gamma1,gamma2,theta2,lambda_S,nu_S,lambda_T,nu_T,betas,& | 1 Warning: Unused dummy argument ‘gamma2’ at (1) [-Wunused-dummy-argument] autres_fonctions.f90:1762:20: 1762 | integer j,k,n,ii,iii,iii2,i,nbou | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] autres_fonctions.f90:1778:25: 1778 | integer :: nmax,nva,nva1,nva2, ibou | 1 Warning: Unused variable ‘nva’ declared at (1) [-Wunused-variable] autres_fonctions.f90:1733:49: 1733 | betat,n_essai,rsqrt,sigma_s,sigma_t,p,prop_i,gamma,alpha,frailt_base, pfs) | 1 Warning: Unused dummy argument ‘p’ at (1) [-Wunused-dummy-argument] autres_fonctions.f90:1041:102: 1041 | ng,ver,truealpha,propC,cens_A,gamma1,gamma2,theta2,lambda_S,nu_S,lambda_T,nu_T,betas,betat) | 1 Warning: Unused dummy argument ‘betat’ at (1) [-Wunused-dummy-argument] autres_fonctions.f90:1041:55: 1041 | ng,ver,truealpha,propC,cens_A,gamma1,gamma2,theta2,lambda_S,nu_S,lambda_T,nu_T,betas,betat) | 1 Warning: Unused dummy argument ‘gamma2’ at (1) [-Wunused-dummy-argument] autres_fonctions.f90:1134:24: 1134 | real :: piece,rien,demi | 1 Warning: Unused variable ‘rien’ declared at (1) [-Wunused-variable] autres_fonctions.f90:1004:12: 1004 | use var_surrogate, only:param_weibull | 1 Warning: Unused module variable ‘param_weibull’ which has been explicitly imported at (1) [-Wunused-variable] autres_fonctions.f90:1008:19: 1008 | real ::ran2 | 1 Warning: Unused variable ‘ran2’ declared at (1) [-Wunused-variable] autres_fonctions.f90:1006:72: 1006 | double precision ::a,b,at,bt,Sij,Tij,u,ut,v,betau,betaut,vt,utij,vtij,theta,wij | 1 Warning: Unused variable ‘utij’ declared at (1) [-Wunused-variable] autres_fonctions.f90:555:76: 555 | SUBROUTINE simulation(donnee,donneeS,ind_temp,n_col,theta,ksi,betas,alpha,betat,p,prop_i,lambdas,nus,& | 1 Warning: Unused dummy argument ‘alpha’ at (1) [-Wunused-dummy-argument] autres_fonctions.f90:557:30: 557 | rsqrt,sigma_s,sigma_t,weib,frailty_cor,affiche_stat) | 1 Warning: Unused dummy argument ‘rsqrt’ at (1) [-Wunused-dummy-argument] autres_fonctions.f90:557:38: 557 | rsqrt,sigma_s,sigma_t,weib,frailty_cor,affiche_stat) | 1 Warning: Unused dummy argument ‘sigma_s’ at (1) [-Wunused-dummy-argument] autres_fonctions.f90:557:46: 557 | rsqrt,sigma_s,sigma_t,weib,frailty_cor,affiche_stat) | 1 Warning: Unused dummy argument ‘sigma_t’ at (1) [-Wunused-dummy-argument] autres_fonctions.f90:130:91: 130 | (dexp(wp(1,2)+up(1,2)+vp(1,2)*z_21)+dexp(w11(1,2)+u(1,2)+v(1,2)*z_21))) | ^ Warning: ‘MEM [(real(kind=8)[0:] *)_177][0]’ may be used uninitialized [-Wmaybe-uninitialized] autres_fonctions.f90:130:91: Warning: ‘MEM [(real(kind=8)[0:] *)_187][0]’ may be used uninitialized [-Wmaybe-uninitialized] autres_fonctions.f90:130:91: Warning: ‘MEM [(real(kind=8)[0:] *)_177][1]’ may be used uninitialized [-Wmaybe-uninitialized] autres_fonctions.f90:130:91: Warning: ‘MEM [(real(kind=8)[0:] *)_187][1]’ may be used uninitialized [-Wmaybe-uninitialized] autres_fonctions.f90:40:41: 40 | double precision function tau_kendall(sigma_w,sigma_u,sigma_v,z_11,z_21,method_int,N_MC,alpha,zeta,model_complet) | ^ Warning: ‘__result_tau_kendall’ may be used uninitialized [-Wmaybe-uninitialized] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c aaOptim_New_scl2.f90 -o aaOptim_New_scl2.o aaOptim_New_scl2.f90:126:8: 126 | use residusM,only:indg | 1 Warning: Unused module variable ‘indg’ which has been explicitly imported at (1) [-Wunused-variable] aaOptim_New_scl2.f90:567:11: 567 | thn=-th | ^ Warning: ‘th’ may be used uninitialized [-Wmaybe-uninitialized] aaOptim_New_scl2.f90:541:37: 541 | double precision::fctnames,thn,th,z,vl,th2,vaux | ^ note: ‘th’ declared here gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c aaOptim_New_scl.f90 -o aaOptim_New_scl.o aaOptim_New_scl.f90:535:11: 535 | thn=-th | ^ Warning: ‘th’ may be used uninitialized [-Wmaybe-uninitialized] aaOptim_New_scl.f90:509:37: 509 | double precision::fctnames,thn,th,z,vl,th2,vaux | ^ note: ‘th’ declared here gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c Integrant_scl.f90 -o Integrant_scl.o Integrant_scl.f90:871:89: 871 | double precision function Integrale_Individuel_MC_cor(vsi,vti,ui,uti,j,nsimu,ndim,mu1,frailij) | 1 Warning: Unused dummy argument ‘mu1’ at (1) [-Wunused-dummy-argument] Integrant_scl.f90:19:8: 19 | use var_surrogate, only: posind_i, alpha_ui, const_res4, const_res5, res2_dcs_sujet,res2s_sujet, & | 1 Warning: Unused module variable ‘control_affichage’ which has been explicitly imported at (1) [-Wunused-variable] Integrant_scl.f90:12:57: 12 | double precision function Integrant_Copula(vsi,vti,ui,ig,nsujet_trial) | 1 Warning: Unused dummy argument ‘ig’ at (1) [-Wunused-dummy-argument] Integrant_scl.f90:27:16: 27 | integer::j,n | 1 Warning: Unused variable ‘n’ declared at (1) [-Wunused-variable] Integrant_scl.f90:1235:18: 1235 | frailst=xx1(1) | ^ Warning: ‘MEM [(real(kind=8)[0:] *)_10][0]’ may be used uninitialized [-Wmaybe-uninitialized] Integrant_scl.f90:871:57: 871 | double precision function Integrale_Individuel_MC_cor(vsi,vti,ui,uti,j,nsimu,ndim,mu1,frailij) | ^ Warning: ‘__result_integrale_individuel’ may be used uninitialized [-Wmaybe-uninitialized] Integrant_scl.f90:604:132: 604 | Integrale_Individuel=Integrale_Individuel*2.d0**(1.d0/2.d0)*invBi_cholDet(posind_i-1+j) !2^(q/2), même determinant pour tous les individus | ^ Warning: ‘__result_integrale_individuel’ may be used uninitialized [-Wmaybe-uninitialized] Integrant_scl.f90:520:47: 520 | double precision function Integrale_Individuel(vsi,vti,ui,j,npoint1) | ^ note: ‘__result_integrale_individuel’ was declared here Integrant_scl.f90:12:43: 12 | double precision function Integrant_Copula(vsi,vti,ui,ig,nsujet_trial) | ^ Warning: ‘__result_integrant_copula’ may be used uninitialized [-Wmaybe-uninitialized] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpa_laplace.f90 -o funcpa_laplace.o funcpa_laplace.f90:362:72: 362 | double precision function funcpaLaplace_copula(b,np,id,thi,jd,thj,k0) | 1 Warning: Unused dummy argument ‘k0’ at (1) [-Wunused-dummy-argument] funcpa_laplace.f90:245:68: 245 | double precision function funcpaXi_chapeau(b,np,id,thi,jd,thj,k0) | 1 Warning: Unused dummy argument ‘k0’ at (1) [-Wunused-dummy-argument] funcpa_laplace.f90:7:70: 7 | double precision function funcpaw_ij_chapeau(b,np,id,thi,jd,thj,k0,individu_j) | 1 Warning: Unused dummy argument ‘k0’ at (1) [-Wunused-dummy-argument] funcpa_laplace.f90:9:12: 9 | use var_surrogate, only:vs_i,vt_i,u_i,theta2,const_res5,const_res4,& | 1 Warning: Unused module variable ‘res2_dcs_sujet’ which has been explicitly imported at (1) [-Wunused-variable] funcpa_laplace.f90:9:12: 9 | use var_surrogate, only:vs_i,vt_i,u_i,theta2,const_res5,const_res4,& | 1 Warning: Unused module variable ‘res2s_sujet’ which has been explicitly imported at (1) [-Wunused-variable] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpa_adaptative.f90 -o funcpa_adaptative.o funcpa_adaptative.f90:271:76: 271 | double precision function funcpafrailtyPred_copula(b,np,id,thi,jd,thj,k0) | 1 Warning: Unused dummy argument ‘k0’ at (1) [-Wunused-dummy-argument] funcpa_adaptative.f90:93:44: 93 | double precision ::I1,c1,c2,integral | 1 Warning: Unused variable ‘integral’ declared at (1) [-Wunused-variable] funcpa_adaptative.f90:7:73: 7 | double precision function funcpafrailtyPred_ind(b,np,id,thi,jd,thj,k0,individu_j) | 1 Warning: Unused dummy argument ‘k0’ at (1) [-Wunused-dummy-argument] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c Integrale_mult_scl.f90 -o Integrale_mult_scl.o Integrale_mult_scl.f90:3347:7: 3347 | 101 continue | 1 Warning: Label 101 at (1) defined but not used [-Wunused-label] Integrale_mult_scl.f90:3215:20: 3215 | 1000 continue | 1 Warning: Label 1000 at (1) defined but not used [-Wunused-label] Integrale_mult_scl.f90:3232:7: 3232 | 101 continue | 1 Warning: Label 101 at (1) defined but not used [-Wunused-label] Integrale_mult_scl.f90:2997:20: 2997 | 1000 continue | 1 Warning: Label 1000 at (1) defined but not used [-Wunused-label] Integrale_mult_scl.f90:3014:7: 3014 | 101 continue | 1 Warning: Label 101 at (1) defined but not used [-Wunused-label] Integrale_mult_scl.f90:2781:20: 2781 | 1000 continue | 1 Warning: Label 1000 at (1) defined but not used [-Wunused-label] Integrale_mult_scl.f90:2798:7: 2798 | 101 continue | 1 Warning: Label 101 at (1) defined but not used [-Wunused-label] Integrale_mult_scl.f90:2631:7: 2631 | 110 continue | 1 Warning: Label 110 at (1) defined but not used [-Wunused-label] Integrale_mult_scl.f90:2408:20: 2408 | 1001 continue | 1 Warning: Label 1001 at (1) defined but not used [-Wunused-label] Integrale_mult_scl.f90:2479:7: 2479 | 100 continue | 1 Warning: Label 100 at (1) defined but not used [-Wunused-label] Integrale_mult_scl.f90:13:57: 13 | double precision function Cont_Laplace_Essai(determin) | 1 Warning: Unused dummy argument ‘determin’ at (1) [-Wunused-dummy-argument] Integrale_mult_scl.f90:1445:80: 1445 | double precision function MC_MultInd_Essai(func,func2,ndim,nsujet_trial,i,mat_A) | 1 Warning: Unused dummy argument ‘mat_a’ at (1) [-Wunused-dummy-argument] Integrale_mult_scl.f90:986:77: 986 | double precision function MC_Multiple_surr(func,vsi,vti,ui,nsimu,mu1,vc1,n,i) | 1 Warning: Unused dummy argument ‘i’ at (1) [-Wunused-dummy-argument] Integrale_mult_scl.f90:418:64: 418 | subroutine monteCarlosMult(funcMC,mu,vc,nsim,vcdiag,posind_i,result) | 1 Warning: Unused dummy argument ‘posind_i’ at (1) [-Wunused-dummy-argument] Integrale_mult_scl.f90:275:54: 275 | integer ::ii,jj,l,m,maxmes,nsimu,init_i,max_i,code,erreur,rang | 1 Warning: Unused variable ‘code’ declared at (1) [-Wunused-variable] Integrale_mult_scl.f90:266:8: 266 | use var_surrogate, only: Vect_sim_MC,a_deja_simul,nsim,chol,frailt_base,& | 1 Warning: Unused module variable ‘control_affichage’ which has been explicitly imported at (1) [-Wunused-variable] Integrale_mult_scl.f90:275:61: 275 | integer ::ii,jj,l,m,maxmes,nsimu,init_i,max_i,code,erreur,rang | 1 Warning: Unused variable ‘erreur’ declared at (1) [-Wunused-variable] Integrale_mult_scl.f90:275:19: 275 | integer ::ii,jj,l,m,maxmes,nsimu,init_i,max_i,code,erreur,rang | 1 Warning: Unused variable ‘jj’ declared at (1) [-Wunused-variable] Integrale_mult_scl.f90:2654:48: 2654 | integer ::ii,jj,npg,kk,cpt,init_i,max_i,code,erreur,rang | 1 Warning: Unused variable ‘code’ declared at (1) [-Wunused-variable] Integrale_mult_scl.f90:2654:55: 2654 | integer ::ii,jj,npg,kk,cpt,init_i,max_i,code,erreur,rang | 1 Warning: Unused variable ‘erreur’ declared at (1) [-Wunused-variable] Integrale_mult_scl.f90:2484:79: 2484 | double precision function gauss_HermMultA_surr_MC(func,vsi,vti,ui,npoint1,n,i) | 1 Warning: Unused dummy argument ‘i’ at (1) [-Wunused-dummy-argument] Integrale_mult_scl.f90:2325:75: 2325 | double precision function gauss_HermMultA_surr(func,vsi,vti,ui,npoint1,n,i) | 1 Warning: Unused dummy argument ‘i’ at (1) [-Wunused-dummy-argument] Integrale_mult_scl.f90:2630:35: 2630 | gauss_HermMultA_surr_MC=I1*herm | ^ Warning: ‘herm’ may be used uninitialized [-Wmaybe-uninitialized] Integrale_mult_scl.f90:2506:26: 2506 | double precision ::herm,I1,c1,c2 | ^ note: ‘herm’ was declared here gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c Pour_Adaptative.f90 -o Pour_Adaptative.o Pour_Adaptative.f90:6:78: 6 | double precision function funcpa_estimatin_fragilite(b,np,id,thi,jd,thj,k0) | 1 Warning: Unused dummy argument ‘k0’ at (1) [-Wunused-dummy-argument] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c aGhermite.f90 -o aGhermite.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c aaOptim.f90 -o aaOptim.o aaOptim.f90:582:2: 582 | ni_cur=ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] aaOptim.f90:792:2: 792 | ni_cur=ni | 1 Warning: Nonconforming tab character at (1) [-Wtabs] aaOptim.f90:2518:11: 2518 | thn=-th | ^ Warning: ‘th’ may be used uninitialized [-Wmaybe-uninitialized] aaOptim.f90:2499:42: 2499 | double precision::fctnamesindiv,thn,th,z,vl,th2,vaux | ^ note: ‘th’ declared here aaOptim.f90:1880:11: 1880 | thn=-th | ^ Warning: ‘th’ may be used uninitialized [-Wmaybe-uninitialized] aaOptim.f90:1864:37: 1864 | double precision::fctnames,thn,th,z,vl,th2,vaux | ^ note: ‘th’ declared here aaOptim.f90:968:11: 968 | thn=-th | ^ Warning: ‘th’ may be used uninitialized [-Wmaybe-uninitialized] aaOptim.f90:949:37: 949 | double precision::fctnames,thn,th,z,vl,th2,vaux | ^ note: ‘th’ declared here gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c aaOptim_SCL_0.f90 -o aaOptim_SCL_0.o aaOptim_SCL_0.f90:554:11: 554 | thn=-th | ^ Warning: ‘th’ may be used uninitialized [-Wmaybe-uninitialized] aaOptim_SCL_0.f90:530:37: 530 | double precision::fctnames,thn,th,z,vl,th2,vaux | ^ note: ‘th’ declared here gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c aaOptimres.f90 -o aaOptimres.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c aaUseFunction.f90 -o aaUseFunction.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c aaUseFunctionG.f90 -o aaUseFunctionG.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c aamarq98o.f90 -o aamarq98o.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c additive.f90 -o additive.o additive.f90:357:20: 357 | date(1) = aux(1) | ^ Warning: ‘MEM [(real(kind=8)[0:] *)_183][0]’ may be used uninitialized [-Wmaybe-uninitialized] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c afuncpasres.f90 -o afuncpasres.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c ahrmsym.f90 -o ahrmsym.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c aresidusMartingale.f90 -o aresidusMartingale.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c distance.f90 -o distance.o distance.f90:1126:2: 1126 | subroutine distanceSloglogistic(b,m,mt,xT,moyLamT,xSuT,moysuT) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1221:2: 1221 | lamT(k,jj) = ( (bgen(ii)/bgen(ii+1))*(x/bgen(ii+1))**(bgen(ii)-1.d0) ) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1222:2: 1222 | ( 1.d0 + (x/bgen(ii+1))**(bgen(ii)) ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1223:2: 1223 | lamTW(jj) = ( ((b(ii)**2)/(b(ii+1)**2)) * (x/(b(ii+1)**2))**((b(ii)**2)-1.d0) ) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1224:2: 1224 | ( 1.d0 + (x/(b(ii+1)**2))**(b(ii)**2) ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1289:2: 1289 | glT(k,jj) = dlog( 1.d0 + (x/bgen(ii+1))**(bgen(ii)) ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1292:2: 1292 | glTW(jj) = dlog( 1.d0 + (x/(b(ii+1)**2))**(b(ii)**2) ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1342:2: 1342 | subroutine distanceSlognormal(b,m,mt,xT,moyLamT,xSuT,moysuT) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1367:2: 1367 | double precision, external::PHI,alnorm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1439:2: 1439 | lamT(k,jj) = (bgen(ii)/x) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1440:2: 1440 | PHI( -bgen(ii)*dlog(x) + bgen(ii)*dlog(bgen(ii+1)) ) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1441:2: 1441 | alnorm( -bgen(ii)*dlog(x) + bgen(ii)*dlog(bgen(ii+1)), .false. ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1442:2: 1442 | lamTW(jj) = ((b(ii)**2)/x) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1443:2: 1443 | PHI( -(b(ii)**2)*dlog(x) + (b(ii)**2)*dlog(b(ii+1)**2) ) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1444:2: 1444 | alnorm( -(b(ii)**2)*dlog(x) + (b(ii)**2)*dlog(b(ii+1)**2), .false. ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1508:2: 1508 | glT(k,jj) = -dlog(alnorm( -bgen(ii)*dlog(x) + bgen(ii)*dlog(bgen(ii+1)), .false. )) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1511:2: 1511 | glTW(jj) = -dlog(alnorm( -(b(ii)**2)*dlog(x) + (b(ii)**2)*dlog(b(ii+1)**2), .false. )) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2740:2: 2740 | integer::famillerisquedc,famillerisquerec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2742:2: 2742 | double precision, external::PHI,alnorm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2746:2: 2746 | famillerisquerec = famillerisque(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2837:2: 2837 | if (famillerisquerec .eq. 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2840:2: 2840 | else if (famillerisquerec .eq. 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2841:2: 2841 | lamR(k,jj) = ( (bgen(ii)/bgen(ii+1))*(x/bgen(ii+1))**(bgen(ii)-1.d0) ) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2842:2: 2842 | ( 1.d0 + (x/bgen(ii+1))**(bgen(ii)) ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2843:2: 2843 | lamRW(jj) = ( ((b(ii)**2)/(b(ii+1)**2)) * (x/(b(ii+1)**2))**((b(ii)**2)-1.d0) ) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2844:2: 2844 | ( 1.d0 + (x/(b(ii+1)**2))**(b(ii)**2) ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2845:2: 2845 | else if (famillerisquerec .eq. 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2846:2: 2846 | lamR(k,jj) = (bgen(ii)/x) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2847:2: 2847 | PHI( -bgen(ii)*dlog(x) + bgen(ii)*dlog(bgen(ii+1)) ) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2848:2: 2848 | alnorm( -bgen(ii)*dlog(x) + bgen(ii)*dlog(bgen(ii+1)), .false. ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2849:2: 2849 | lamRW(jj) = ((b(ii)**2)/x) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2850:2: 2850 | PHI( -(b(ii)**2)*dlog(x) + (b(ii)**2)*dlog(b(ii+1)**2) ) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2851:2: 2851 | alnorm( -(b(ii)**2)*dlog(x) + (b(ii)**2)*dlog(b(ii+1)**2), .false. ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2852:2: 2852 | else if ((famillerisquerec .eq. 3) .or. (famillerisquerec .eq. 4)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2855:2: 2855 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2862:2: 2862 | if (famillerisquedc .eq. 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2865:2: 2865 | else if (famillerisquedc .eq. 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2866:2: 2866 | lamDC(k) = ( (bgen(nstRec*2+1)/bgen(nstRec*2+1+1))*(x/bgen(nstRec*2+1+1))**(bgen(nstRec*2+1)-1.d0) ) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2867:2: 2867 | ( 1.d0 + (x/bgen(nstRec*2+1+1))**(bgen(nstRec*2+1)) ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2868:2: 2868 | lamDCW = ( ((b(nstRec*2+1)**2)/(b(nstRec*2+1+1)**2)) * (x/(b(nstRec*2+1+1)**2))**((b(nstRec*2+1)**2)-1.d0) ) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2869:2: 2869 | ( 1.d0 + (x/(b(nstRec*2+1+1)**2))**(b(nstRec*2+1)**2) ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2870:2: 2870 | else if (famillerisquedc .eq. 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2871:2: 2871 | lamDC(k) = (bgen(nstRec*2+1)/x) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2872:2: 2872 | PHI( -bgen(nstRec*2+1)*dlog(x) + bgen(nstRec*2+1)*dlog(bgen(nstRec*2+1+1)) ) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2873:2: 2873 | alnorm( -bgen(nstRec*2+1)*dlog(x) + bgen(nstRec*2+1)*dlog(bgen(nstRec*2+1+1)), .false. ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2874:2: 2874 | lamDCW = ((b(nstRec*2+1)**2)/x) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2875:2: 2875 | PHI( -(b(nstRec*2+1)**2)*dlog(x) + (b(nstRec*2+1)**2)*dlog(b(nstRec*2+1+1)**2) ) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2876:2: 2876 | alnorm( -(b(nstRec*2+1)**2)*dlog(x) + (b(nstRec*2+1)**2)*dlog(b(nstRec*2+1+1)**2), .false. ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2877:2: 2877 | else if ((famillerisquedc .eq. 3) .or. (famillerisquedc .eq. 4)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2880:2: 2880 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2890:2: 2890 | if (famillerisquerec .eq. 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2895:2: 2895 | else if (famillerisquerec .eq. 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2896:2: 2896 | glR(k,jj) = dlog( 1.d0 + (x/bgen(ii+1))**(bgen(ii)) ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2898:2: 2898 | glRW(jj) = dlog( 1.d0 + (x/(b(ii+1)**2))**(b(ii)**2) ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2900:2: 2900 | else if (famillerisquerec .eq. 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2901:2: 2901 | glR(k,jj) = -dlog(alnorm( -bgen(ii)*dlog(x) + bgen(ii)*dlog(bgen(ii+1)), .false. )) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2903:2: 2903 | glRW(jj) = -dlog(alnorm( -(b(ii)**2)*dlog(x) + (b(ii)**2)*dlog(b(ii+1)**2), .false. )) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2905:2: 2905 | else if ((famillerisquerec .eq. 3) .or. (famillerisquerec .eq. 4)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2910:2: 2910 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2920:2: 2920 | if (famillerisquedc .eq. 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2925:2: 2925 | else if (famillerisquedc .eq. 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2926:2: 2926 | glDC(k) = dlog( 1.d0 + (x/bgen(nstRec*2+1+1))**(bgen(nstRec*2+1)) ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2928:2: 2928 | glDCW = dlog( 1.d0 + (x/(b(nstRec*2+1+1)**2))**(b(nstRec*2+1)**2) ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2930:2: 2930 | else if (famillerisquedc .eq. 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2931:2: 2931 | glDC(k) = -dlog(alnorm( -bgen(nstRec*2+1)*dlog(x) + bgen(nstRec*2+1)*dlog(bgen(nstRec*2+1+1)), .false. )) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2933:2: 2933 | glDCW = -dlog(alnorm( -(b(nstRec*2+1)**2)*dlog(x) + (b(nstRec*2+1)**2)*dlog(b(nstRec*2+1+1)**2), .false. )) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2935:2: 2935 | else if ((famillerisquedc .eq. 3) .or. (famillerisquedc .eq. 4)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2940:2: 2940 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c epoce.f90 -o epoce.o epoce.f90:735:52: 735 | func2E = func2E * sudc(2)**(frail**alpha * vet2) | ^ Warning: ‘sudc’ may be used uninitialized [-Wmaybe-uninitialized] epoce.f90:604:52: 604 | double precision,dimension(2)::su,sut1,sut0,sudc | ^ note: ‘sudc’ declared here epoce.f90:536:52: 536 | func1E = func1E * sudc(2)**(frail**alpha * vet2) | ^ Warning: ‘sudc’ may be used uninitialized [-Wmaybe-uninitialized] epoce.f90:398:52: 398 | double precision,dimension(2)::su,sut1,sut0,sudc | ^ note: ‘sudc’ declared here gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c epoce_log.f90 -o epoce_log.o epoce_log.f90:753:67: 753 | func2E_LogN = func2E_LogN * sudc(2)**(dexp(frail*alpha )* vet2) | ^ Warning: ‘sudc’ may be used uninitialized [-Wmaybe-uninitialized] epoce_log.f90:622:52: 622 | double precision,dimension(2)::su,sut1,sut0,sudc | ^ note: ‘sudc’ declared here epoce_log.f90:552:67: 552 | func1E_LogN = func1E_LogN * sudc(2)**(dexp(frail*alpha) * vet2) | ^ Warning: ‘sudc’ may be used uninitialized [-Wmaybe-uninitialized] epoce_log.f90:414:52: 414 | double precision,dimension(2)::su,sut1,sut0,sudc | ^ note: ‘sudc’ declared here gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c epoce_long.f90 -o epoce_long.o epoce_long.f90:1801:54: 1801 | *dexp(etaydc(1)*frail(1))) | ^ Warning: ‘sudc’ may be used uninitialized [-Wmaybe-uninitialized] epoce_long.f90:1738:34: 1738 | double precision::sudc,T | ^ note: ‘sudc’ declared here gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c epoce_long_nl.f90 -o epoce_long_nl.o epoce_long_nl.f90:1125:70: 1125 | lam = 4.d0*the1(nn-2-1)/(zi(nn-2)-zi(nn-2-1)) | ^ Warning: ‘nn’ may be used uninitialized [-Wmaybe-uninitialized] epoce_long_nl.f90:979:31: 979 | integer :: j,i,k,nnn,nn !jj,ier | ^ note: ‘nn’ was declared here epoce_long_nl.f90:1107:61: 1107 | **(dexp(dot_product(etayr,Xea22(1:netar)))) | ^ Warning: ‘sut0[0]’ may be used uninitialized [-Wmaybe-uninitialized] epoce_long_nl.f90:992:53: 992 | double precision,dimension(2)::su,sut1,sut0 | ^ note: ‘sut0[0]’ was declared here epoce_long_nl.f90:1107:61: 1107 | **(dexp(dot_product(etayr,Xea22(1:netar)))) | ^ Warning: ‘sut1[0]’ may be used uninitialized [-Wmaybe-uninitialized] epoce_long_nl.f90:992:48: 992 | double precision,dimension(2)::su,sut1,sut0 | ^ note: ‘sut1[0]’ was declared here clang-16 -I"/home/hornik/tmp/R/include" -DNDEBUG -I/usr/local/include -DUSE_TYPE_CHECKING_STRICT -D_FORTIFY_SOURCE=3 -fpic -g -O3 -Wall -pedantic -c fortran_random.c -o fortran_random.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c frailtypack.f90 -o frailtypack.o frailtypack.f90:2619:8: 2619 | use comon,only:typeof | 1 Warning: Unused module variable ‘typeof’ which has been explicitly imported at (1) [-Wunused-variable] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c frailtypackgen.f90 -o frailtypackgen.o frailtypackgen.f90:63:2: 63 | double precision,external::funcpasgenweib,funcpasgenloglogistic,funcpasgenlognormal | 1 Warning: Nonconforming tab character at (1) [-Wtabs] frailtypackgen.f90:64:2: 64 | double precision,external::funcpasgenadditif,funcpasgenadditif_tps,funcpasgenadditif_param,funcpasgenadditif_pen | 1 Warning: Nonconforming tab character at (1) [-Wtabs] frailtypackgen.f90:65:2: 65 | double precision,external::funcpasgenadditif_alternatif,funcpasgenadditifalternatif_tps | 1 Warning: Nonconforming tab character at (1) [-Wtabs] frailtypackgen.f90:89:2: 89 | integer::familyrisk | 1 Warning: Nonconforming tab character at (1) [-Wtabs] frailtypackgen.f90:960:2: 960 | if (familyrisk.eq.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] frailtypackgen.f90:961:2: 961 | call marq98j(k0,b,np,ni,v,res,ier,istop,effet,ca,cb,dd,funcpas_tps) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] frailtypackgen.f90:962:2: 962 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] frailtypackgen.f90:963:2: 963 | if (familyrisk.eq.3) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] frailtypackgen.f90:966:2: 966 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] frailtypackgen.f90:967:2: 967 | if (familyrisk.eq.4) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] frailtypackgen.f90:970:2: 970 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] frailtypackgen.f90:995:2: 995 | if (familyrisk.eq.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] frailtypackgen.f90:998:2: 998 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] frailtypackgen.f90:999:2: 999 | if (familyrisk.eq.1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] frailtypackgen.f90:1002:2: 1002 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] frailtypackgen.f90:1003:2: 1003 | if (familyrisk.eq.2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] frailtypackgen.f90:1006:2: 1006 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] frailtypackgen.f90:1007:2: 1007 | if (familyrisk.eq.3) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] frailtypackgen.f90:1014:2: 1014 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] frailtypackgen.f90:1015:2: 1015 | if (familyrisk.eq.4) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] frailtypackgen.f90:1018:2: 1018 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] frailtypackgen.f90:1094:19: 1094 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpaG_tps.f90 -o funcpaG_tps.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpaGcpm.f90 -o funcpaGcpm.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpaGcpm_intcens.f90 -o funcpaGcpm_intcens.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpaGcpm_log.f90 -o funcpaGcpm_log.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpaGsplines.f90 -o funcpaGsplines.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpaGsplines_intcens.f90 -o funcpaGsplines_intcens.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpaGsplines_log.f90 -o funcpaGsplines_log.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpaGweib.f90 -o funcpaGweib.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpaGweib_intcens.f90 -o funcpaGweib_intcens.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpaGweib_log.f90 -o funcpaGweib_log.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpaMultivCpm.f90 -o funcpaMultivCpm.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpaMultivSplines.f90 -o funcpaMultivSplines.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpaMultivWeib.f90 -o funcpaMultivWeib.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpaacpm.f90 -o funcpaacpm.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpaasplines.f90 -o funcpaasplines.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpaaweib.f90 -o funcpaaweib.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpaj_tps.f90 -o funcpaj_tps.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpajcpm.f90 -o funcpajcpm.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpajcpm_log.f90 -o funcpajcpm_log.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpajgen_tps.f90 -o funcpajgen_tps.o funcpajgen_tps.f90:11:2: 11 | famillerisque, ni_cur | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:29:2: 29 | double precision,external::risqindivrecAH_initial,risqindivrecAH_positif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:30:2: 30 | double precision,external::risqindivdcAH_initial,risqindivdcAH_positif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:31:2: 31 | double precision,external::risqindivrecAH_alternatif,risqindivdcAH_alternatif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:32:2: 32 | integer::famillerisquedc,famillerisquerec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:35:2: 35 | famillerisquerec = famillerisque(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:87:2: 87 | if(famillerisquerec .eq. 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:89:2: 89 | else if (famillerisquerec .eq. 3) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:90:2: 90 | res2(g(i)) = res2(g(i)) + dlog(risqindivrecAH_positif(t1(i),i,bh,np)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:91:2: 91 | else if (famillerisquerec .eq. 4) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:92:2: 92 | res2(g(i)) = res2(g(i)) + dlog(risqindivrecAH_alternatif(t1(i),i,bh,np)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:93:2: 93 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:108:2: 108 | else if (famillerisquerec .eq. 3) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:109:2: 109 | call integration(risqindivrecAH_positif,0.d0,t1(i),result,abserr,resabs,resasc,i,bh,np) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:111:2: 111 | else if (famillerisquerec .eq. 4) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:112:2: 112 | call integration(risqindivrecAH_alternatif,0.d0,t1(i),result,abserr,resabs,resasc,i,bh,np) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:114:2: 114 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:128:2: 128 | else if (famillerisquerec .eq. 3) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:129:2: 129 | call integration(risqindivrecAH_positif,0.d0,t0(i),result3,abserr,resabs,resasc,i,bh,np) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:131:2: 131 | else if (famillerisquerec .eq. 4) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:132:2: 132 | call integration(risqindivrecAH_alternatif,0.d0,t0(i),result3,abserr,resabs,resasc,i,bh,np) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:134:2: 134 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:153:2: 153 | if(famillerisquedc .eq. 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:155:2: 155 | else if (famillerisquedc .eq. 3) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:156:2: 156 | res2dc(k) = dlog(risqindivdcAH_positif(t1dc(k),k,bh,np)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:157:2: 157 | else if (famillerisquedc .eq. 4) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:158:2: 158 | res2dc(k) = dlog(risqindivdcAH_alternatif(t1dc(k),k,bh,np)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:159:2: 159 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:174:2: 174 | else if (famillerisquedc .eq. 3) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:175:2: 175 | call integration(risqindivdcAH_positif,t0dc(k),t1dc(k),resultdc,abserr,resabs,resasc,k,bh,np) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:177:2: 177 | else if (famillerisquedc .eq. 4) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:178:2: 178 | call integration(risqindivdcAH_alternatif,t0dc(k),t1dc(k),resultdc,abserr,resabs,resasc,k,bh,np) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:180:2: 180 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:683:2: 683 | if (risqindivrecAH_positif.le.0.d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:684:2: 684 | risqindivrecAH_positif = 1d-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:685:2: 685 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:888:2: 888 | if (risqindivdcAH_positif.le.0.d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:889:2: 889 | risqindivdcAH_positif = 1d-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:890:2: 890 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgen_tps.f90:7:8: 7 | use comon,only:m3m3,m2m2,m1m1,mmm,m3m2,m3m1,m3m,m2m1,m2m,m1m,nva, & | 1 Warning: Unused module variable ‘ni_cur’ which has been explicitly imported at (1) [-Wunused-variable] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpajgeneral.f90 -o funcpajgeneral.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpajgenparam.f90 -o funcpajgenparam.o funcpajgenparam.f90:12:2: 12 | famillerisque, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:13:2: 13 | ni_cur | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:32:2: 32 | penrisqneg_rec,penrisqneg_dc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:34:2: 34 | integer::famillerisquedc,famillerisquerec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:36:2: 36 | double precision, external::PHI,alnorm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:37:2: 37 | double precision::risque_indiv, risque_indiv_dc | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:41:2: 41 | famillerisquerec = famillerisque(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:90:2: 90 | penrisqneg_rec(k) = 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:91:2: 91 | penrisqneg_dc(k) = 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:118:2: 118 | if (famillerisquerec .eq. 3) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:119:2: 119 | risque_indiv = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:120:2: 120 | betaT(stra(i)) * etaT(stra(i))**(-betaT(stra(i))) * (t1(i))**(betaT(stra(i))-1.d0) + dlog(vet) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:121:2: 121 | if(risque_indiv .le. 0.d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:122:2: 122 | penrisqneg_rec(g(i)) = penrisqneg_rec(g(i)) + (2.d0**(min(ni_cur,10)-1)) * risque_indiv**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:123:2: 123 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:124:2: 124 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:129:2: 129 | if(famillerisquerec .eq. 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:132:2: 132 | else if (famillerisquerec .eq. 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:133:2: 133 | res2(g(i)) = res2(g(i)) + dlog(betaT(stra(i)))-dlog(t1(i))- & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:134:2: 134 | dlog(((etaT(stra(i))/t1(i))**betaT(stra(i)))*dexp(-dlog(vet)) + 1.d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:135:2: 135 | else if (famillerisquerec .eq. 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:136:2: 136 | res2(g(i)) = res2(g(i)) + dlog(betaT(stra(i)))-dlog(t1(i))+ & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:137:2: 137 | dlog(PHI( -betaT(stra(i))*dlog(t1(i)) + betaT(stra(i))*dlog(etaT(stra(i))) - dlog(vet) ))- & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:138:2: 138 | dlog(alnorm( -betaT(stra(i))*dlog(t1(i)) + betaT(stra(i))*dlog(etaT(stra(i))) - dlog(vet), .false.)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:139:2: 139 | else if (famillerisquerec .eq. 3) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:142:2: 142 | if(risque_indiv .gt. 0.d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:144:2: 144 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:145:2: 145 | res2(g(i)) = res2(g(i)) + dlog(1.d-12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:146:2: 146 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:147:2: 147 | else if (famillerisquerec .eq. 4) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:148:2: 148 | res2(g(i)) = res2(g(i)) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:149:2: 149 | dlog( betaT(stra(i)) * etaT(stra(i))**(-betaT(stra(i))) * (t1(i))**(betaT(stra(i))-1.d0) + vet ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:150:2: 150 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:151:2: 151 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:164:2: 164 | else if (famillerisquerec .eq. 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:165:2: 165 | res1(g(i)) = res1(g(i)) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:166:2: 166 | dlog(((t1(i)/etaT(stra(i)))**betaT(stra(i)))+dexp(-dlog(vet))) + dlog(vet) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:167:2: 167 | else if (famillerisquerec .eq. 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:168:2: 168 | res1(g(i)) = res1(g(i)) - & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:169:2: 169 | dlog(alnorm( -betaT(stra(i))*dlog(t1(i)) + betaT(stra(i))*dlog(etaT(stra(i))) - dlog(vet), .false.)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:170:2: 170 | else if (famillerisquerec .eq. 3) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:171:2: 171 | if(risque_indiv .gt. 0.d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:172:2: 172 | res1(g(i)) = res1(g(i)) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:173:2: 173 | (t1(i)/etaT(stra(i)))**betaT(stra(i)) + t1(i)*dlog(vet) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:174:2: 174 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:175:2: 175 | res1(g(i)) = res1(g(i)) + t1(i)*1.d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:176:2: 176 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:177:2: 177 | else if (famillerisquerec .eq. 4) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:178:2: 178 | res1(g(i)) = res1(g(i)) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:179:2: 179 | (t1(i)/etaT(stra(i)))**betaT(stra(i)) + t1(i)*vet | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:180:2: 180 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:193:2: 193 | else if (famillerisquerec .eq. 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:194:2: 194 | res3(g(i)) = res3(g(i)) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:195:2: 195 | dlog(((t0(i)/etaT(stra(i)))**betaT(stra(i)))+dexp(-dlog(vet))) + dlog(vet) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:196:2: 196 | else if (famillerisquerec .eq. 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:197:2: 197 | res3(g(i)) = res3(g(i)) - & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:198:2: 198 | dlog(alnorm( -betaT(stra(i))*dlog(t0(i)) + betaT(stra(i))*dlog(etaT(stra(i))) - dlog(vet), .false.)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:199:2: 199 | else if (famillerisquerec .eq. 3) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:200:2: 200 | if(risque_indiv .gt. 0.d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:201:2: 201 | res3(g(i)) = res3(g(i)) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:202:2: 202 | (t0(i)/etaT(stra(i)))**betaT(stra(i)) + t0(i)*dlog(vet) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:203:2: 203 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:204:2: 204 | res3(g(i)) = res3(g(i)) + t0(i)*1.d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:205:2: 205 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:206:2: 206 | else if (famillerisquerec .eq. 4) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:207:2: 207 | res3(g(i)) = res3(g(i)) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:208:2: 208 | (t0(i)/etaT(stra(i)))**betaT(stra(i)) + t0(i)*vet | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:209:2: 209 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:237:2: 237 | if (famillerisquedc .eq. 3) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:238:2: 238 | risque_indiv_dc = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:239:2: 239 | betaD * etaD**(-betaD) * (t1dc(k))**(betaD-1.d0) + dlog(vet2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:240:2: 240 | if(risque_indiv_dc .le. 0.d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:241:2: 241 | penrisqneg_dc(k) = penrisqneg_dc(k) + (2.d0**(min(ni_cur,10)-1)) * risque_indiv_dc**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:242:2: 242 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:243:2: 243 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:248:2: 248 | if(famillerisquedc .eq. 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:252:2: 252 | else if (famillerisquedc .eq. 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:253:2: 253 | res2dc(k) = dlog(betaD)-dlog(t1dc(k))- & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:254:2: 254 | dlog(((etaD/t1dc(k))**betaD)*dexp(-dlog(vet2)) + 1.d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:255:2: 255 | else if (famillerisquedc .eq. 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:256:2: 256 | res2dc(k) = dlog(betaD)-dlog(t1dc(k))+ & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:257:2: 257 | dlog(PHI( -betaD*dlog(t1dc(k)) + betaD*dlog(etaD) - dlog(vet2) )) -& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:258:2: 258 | dlog(alnorm( -betaD*dlog(t1dc(k)) + betaD*dlog(etaD) - dlog(vet2), .false.)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:259:2: 259 | else if (famillerisquedc .eq. 3) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:262:2: 262 | if(risque_indiv_dc .gt. 0.d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:264:2: 264 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:265:2: 265 | res2dc(k) = dlog(1.d-12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:266:2: 266 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:267:2: 267 | else if (famillerisquedc .eq. 4) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:268:2: 268 | res2dc(k) = dlog( betaD * etaD**(-betaD) * (t1dc(k))**(betaD-1.d0) + vet2 ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:269:2: 269 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:270:2: 270 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:284:2: 284 | else if (famillerisquedc .eq. 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:285:2: 285 | aux1(k) = dlog(((t1dc(k)/etaD)**betaD) + dexp(-dlog(vet2))) + dlog(vet2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:286:2: 286 | else if (famillerisquedc .eq. 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:287:2: 287 | aux1(k) = -dlog(alnorm( -betaD*dlog(t1dc(k)) + betaD*dlog(etaD) - dlog(vet2), .false.)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:288:2: 288 | else if (famillerisquedc .eq. 3) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:289:2: 289 | if(risque_indiv_dc .gt. 0.d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:290:2: 290 | aux1(k) = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:291:2: 291 | (t1dc(k)/etaD)**betaD + t1dc(k)*dlog(vet2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:292:2: 292 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:293:2: 293 | aux1(k) = t1dc(k)*1.d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:294:2: 294 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:295:2: 295 | else if (famillerisquedc .eq. 4) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:296:2: 296 | aux1(k) = (t1dc(k)/etaD)**betaD + t1dc(k)*vet2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:297:2: 297 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:329:2: 329 | - penrisqneg_rec(k)-penrisqneg_dc(k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:334:2: 334 | - penrisqneg_rec(k)-penrisqneg_dc(k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:343:2: 343 | - penrisqneg_rec(k)-penrisqneg_dc(k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajgenparam.f90:171:9: 171 | if(risque_indiv .gt. 0.d0)then | ^ Warning: ‘risque_indiv’ may be used uninitialized [-Wmaybe-uninitialized] funcpajgenparam.f90:37:31: 37 | double precision::risque_indiv, risque_indiv_dc | ^ note: ‘risque_indiv’ was declared here funcpajgenparam.f90:289:9: 289 | if(risque_indiv_dc .gt. 0.d0)then | ^ Warning: ‘risque_indiv_dc’ may be used uninitialized [-Wmaybe-uninitialized] funcpajgenparam.f90:37:48: 37 | double precision::risque_indiv, risque_indiv_dc | ^ note: ‘risque_indiv_dc’ was declared here gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpajlongisplines.f90 -o funcpajlongisplines.o funcpajlongisplines.f90:438:2: 438 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajlongisplines.f90:440:2: 440 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajlongisplines.f90:516:22: 516 | if(nmescur.gt.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpajlongisplines.f90:601:2: 601 | do k=1,nb1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpajlongisplines_nl.f90 -o funcpajlongisplines_nl.o funcpajlongisplines_nl.f90:947:11: 947 | 123 continue | 1 Warning: Label 123 at (1) defined but not used [-Wunused-label] funcpajlongisplines_nl.f90:600:56: 600 | double precision function funcsplines_nl(b,np,id,thi,jd,thj,k0) | 1 Warning: Unused dummy argument ‘id’ at (1) [-Wunused-dummy-argument] funcpajlongisplines_nl.f90:600:63: 600 | double precision function funcsplines_nl(b,np,id,thi,jd,thj,k0) | 1 Warning: Unused dummy argument ‘jd’ at (1) [-Wunused-dummy-argument] funcpajlongisplines_nl.f90:600:70: 600 | double precision function funcsplines_nl(b,np,id,thi,jd,thj,k0) | 1 Warning: Unused dummy argument ‘k0’ at (1) [-Wunused-dummy-argument] funcpajlongisplines_nl.f90:600:60: 600 | double precision function funcsplines_nl(b,np,id,thi,jd,thj,k0) | 1 Warning: Unused dummy argument ‘thi’ at (1) [-Wunused-dummy-argument] funcpajlongisplines_nl.f90:600:67: 600 | double precision function funcsplines_nl(b,np,id,thi,jd,thj,k0) | 1 Warning: Unused dummy argument ‘thj’ at (1) [-Wunused-dummy-argument] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpajlongiweib.f90 -o funcpajlongiweib.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpajlongiweib_nl.f90 -o funcpajlongiweib_nl.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpajsplines.f90 -o funcpajsplines.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpajsplinesIndiv.f90 -o funcpajsplinesIndiv.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpajsplines_copule_surrogate_scl_2.f90 -o funcpajsplines_copule_surrogate_scl_2.o funcpajsplines_copule_surrogate_scl_2.f90:52:35: 52 | double precision::int,gammaJ,c3,c4,pourgam | 1 Warning: Unused variable ‘c3’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:52:38: 52 | double precision::int,gammaJ,c3,c4,pourgam | 1 Warning: Unused variable ‘c4’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:36:84: 36 | integer::n,i,j,k,vj,ig,choix,l,vcdiag,nsujet_trial,dimint,dimint_Ind,erreur,code,compteur,init_i,max_i | 1 Warning: Unused variable ‘code’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:58:93: 58 | integer::ier,istop,ss,sss,ni,model_save,nparamfrail_save,maxiter_save,nmax_2,nb_pro2,comm,rang2,& | 1 Warning: Unused variable ‘comm’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:36:93: 36 | integer::n,i,j,k,vj,ig,choix,l,vcdiag,nsujet_trial,dimint,dimint_Ind,erreur,code,compteur,init_i,max_i | 1 Warning: Unused variable ‘compteur’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:59:75: 59 | np_2,indice_B_essai,indice_ind_util_essai,non_conv,control_est,rang,n_par_pro | 1 Warning: Unused variable ‘control_est’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:36:79: 36 | integer::n,i,j,k,vj,ig,choix,l,vcdiag,nsujet_trial,dimint,dimint_Ind,erreur,code,compteur,init_i,max_i | 1 Warning: Unused variable ‘erreur’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:62:67: 62 | double precision::ca,cb,dd,som_cont,usim,x22,SX, jacobien, f_vi | 1 Warning: Unused variable ‘f_vi’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:51:52: 51 | double precision,dimension(:),allocatable::frail | 1 Warning: Unused variable ‘frail’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:60:33: 60 | integer::frail_essai_deja_est,lm ! variable qui dit si pour un essai donne l'on a deja estimes les vsi et vti (1) ou non (0) | 1 Warning: Unused variable ‘frail_essai_deja_est’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:52:32: 52 | double precision::int,gammaJ,c3,c4,pourgam | 1 Warning: Unused variable ‘gammaj’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:38:67: 38 | double precision::pe1,pe2,som,inv,som1,som2,res,vet,vet2,h1,inc,varS1,varT1,covST1,som_cont_0, v_si, v_ti, ui | 1 Warning: Unused variable ‘inc’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:59:54: 59 | np_2,indice_B_essai,indice_ind_util_essai,non_conv,control_est,rang,n_par_pro | 1 Warning: Unused variable ‘indice_ind_util_essai’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:36:100: 36 | integer::n,i,j,k,vj,ig,choix,l,vcdiag,nsujet_trial,dimint,dimint_Ind,erreur,code,compteur,init_i,max_i | 1 Warning: Unused variable ‘init_i’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:52:25: 52 | double precision::int,gammaJ,c3,c4,pourgam | 1 Warning: Unused variable ‘int’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:60:36: 60 | integer::frail_essai_deja_est,lm ! variable qui dit si pour un essai donne l'on a deja estimes les vsi et vti (1) ou non (0) | 1 Warning: Unused variable ‘lm’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:72:51: 72 | double precision, dimension(:,:),allocatable::m | 1 Warning: Unused variable ‘m’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:71:52: 71 | double precision, dimension(:,:),allocatable::m1,m3 | 1 Warning: Unused variable ‘m1’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:71:55: 71 | double precision, dimension(:,:),allocatable::m1,m3 | 1 Warning: Unused variable ‘m3’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:36:106: 36 | integer::n,i,j,k,vj,ig,choix,l,vcdiag,nsujet_trial,dimint,dimint_Ind,erreur,code,compteur,init_i,max_i | 1 Warning: Unused variable ‘max_i’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:59:90: 59 | np_2,indice_B_essai,indice_ind_util_essai,non_conv,control_est,rang,n_par_pro | 1 Warning: Unused variable ‘n_par_pro’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:58:88: 58 | integer::ier,istop,ss,sss,ni,model_save,nparamfrail_save,maxiter_save,nmax_2,nb_pro2,comm,rang2,& | 1 Warning: Unused variable ‘nb_pro2’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:52:46: 52 | double precision::int,gammaJ,c3,c4,pourgam | 1 Warning: Unused variable ‘pourgam’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:58:99: 58 | integer::ier,istop,ss,sss,ni,model_save,nparamfrail_save,maxiter_save,nmax_2,nb_pro2,comm,rang2,& | 1 Warning: Unused variable ‘rang2’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:38:33: 38 | double precision::pe1,pe2,som,inv,som1,som2,res,vet,vet2,h1,inc,varS1,varT1,covST1,som_cont_0, v_si, v_ti, ui | 1 Warning: Unused variable ‘som’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:62:39: 62 | double precision::ca,cb,dd,som_cont,usim,x22,SX, jacobien, f_vi | 1 Warning: Unused variable ‘som_cont’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:38:97: 38 | double precision::pe1,pe2,som,inv,som1,som2,res,vet,vet2,h1,inc,varS1,varT1,covST1,som_cont_0, v_si, v_ti, ui | 1 Warning: Unused variable ‘som_cont_0’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:62:51: 62 | double precision::ca,cb,dd,som_cont,usim,x22,SX, jacobien, f_vi | 1 Warning: Unused variable ‘sx’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:62:44: 62 | double precision::ca,cb,dd,som_cont,usim,x22,SX, jacobien, f_vi | 1 Warning: Unused variable ‘usim’ declared at (1) [-Wunused-variable] funcpajsplines_copule_surrogate_scl_2.f90:62:48: 62 | double precision::ca,cb,dd,som_cont,usim,x22,SX, jacobien, f_vi | 1 Warning: Unused variable ‘x22’ declared at (1) [-Wunused-variable] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpajsplines_fam.f90 -o funcpajsplines_fam.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpajsplines_intcens.f90 -o funcpajsplines_intcens.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpajsplines_log.f90 -o funcpajsplines_log.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpajsplines_logIndiv.f90 -o funcpajsplines_logIndiv.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpajsplines_surrogate_scl_1.f90 -o funcpajsplines_surrogate_scl_1.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpajsplines_surrogate_scl_2.f90 -o funcpajsplines_surrogate_scl_2.o funcpajsplines_surrogate_scl_2.f90:8:8: 8 | use var_mediation,only:nknots,splines_ord,innerknotsurro,basissplines,& | 1 Warning: Unused module variable ‘basissplines’ which has been explicitly imported at (1) [-Wunused-variable] funcpajsplines_surrogate_scl_2.f90:71:26: 71 | double precision::maxs | 1 Warning: Unused variable ‘maxs’ declared at (1) [-Wunused-variable] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpajweib.f90 -o funcpajweib.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpajweib_fam.f90 -o funcpajweib_fam.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpajweib_intcens.f90 -o funcpajweib_intcens.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpajweib_log.f90 -o funcpajweib_log.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpalongi_uni.f90 -o funcpalongi_uni.o funcpalongi_uni.f90:5:71: 5 | double precision function funcpalongi_uni(b,np,id,thi,jd,thj,k0) | 1 Warning: Unused dummy argument ‘k0’ at (1) [-Wunused-dummy-argument] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpancpm.f90 -o funcpancpm.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpansplines.f90 -o funcpansplines.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpanweib.f90 -o funcpanweib.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpas_tps.f90 -o funcpas_tps.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpascpm.f90 -o funcpascpm.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpascpm_intcens.f90 -o funcpascpm_intcens.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpascpm_log.f90 -o funcpascpm_log.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpasgenadditif_alternatif.f90 -o funcpasgenadditif_alternatif.o funcpasgenadditif_alternatif.f90:109:2: 109 | dlog( betaT(stra(i)) * etaT(stra(i))**(-betaT(stra(i))) * (t1(i))**(betaT(stra(i))-1.d0) + vet ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_alternatif.f90:121:2: 121 | + (t1(i)/etaT(stra(i)))**betaT(stra(i)) + t1(i)*vet & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_alternatif.f90:122:2: 122 | - (t0(i)/etaT(stra(i)))**betaT(stra(i)) - t0(i)*vet | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_alternatif.f90:125:2: 125 | RisqCumul(i) = (t1(i)/etaT(stra(i)))**betaT(stra(i)) + t1(i)*vet | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_alternatif.f90:180:2: 180 | dlog( betaT(stra(i)) * etaT(stra(i))**(-betaT(stra(i))) * (t1(i))**(betaT(stra(i))-1.d0) + vet ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_alternatif.f90:192:2: 192 | res1(g(i)) = res1(g(i)) + (t1(i)/etaT(stra(i)))**betaT(stra(i)) + t1(i)*vet | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_alternatif.f90:204:2: 204 | res3(g(i)) = res3(g(i)) + (t0(i)/etaT(stra(i)))**betaT(stra(i)) + t0(i)*vet | 1 Warning: Nonconforming tab character at (1) [-Wtabs] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpasgenadditif_pen.f90 -o funcpasgenadditif_pen.o funcpasgenadditif_pen.f90:31:2: 31 | double precision::risque_indiv | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:85:2: 85 | penrisqneg= 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:109:2: 109 | risque_indiv = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:110:2: 110 | betaT(stra(i)) * etaT(stra(i))**(-betaT(stra(i))) * (t1(i))**(betaT(stra(i))-1.d0) + dlog(vet) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:111:2: 111 | if(risque_indiv .le. 0.d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:112:2: 112 | penrisqneg(g(i)) = penrisqneg(g(i)) + (2.d0**(min(ni_cur,10)-1)) * risque_indiv**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:113:2: 113 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:118:2: 118 | if(risque_indiv .gt. 0.d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:120:2: 120 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:121:2: 121 | res2(g(i)) = res2(g(i)) + dlog(1.d-12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:122:2: 122 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:132:2: 132 | if(risque_indiv .gt. 0.d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:135:2: 135 | - (t0(i)/etaT(stra(i)))**betaT(stra(i)) - t0(i)*dlog(vet) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:136:2: 136 | RisqCumul(i) = (t1(i)/etaT(stra(i)))**betaT(stra(i)) + t1(i)*dlog(vet) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:137:2: 137 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:138:2: 138 | res1(g(i)) = res1(g(i)) + t1(i)*1.d-12 - t0(i)*1.d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:139:2: 139 | RisqCumul(i) = t1(i)*1.d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:140:2: 140 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:193:2: 193 | risque_indiv = & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:194:2: 194 | betaT(stra(i)) * etaT(stra(i))**(-betaT(stra(i))) * (t1(i))**(betaT(stra(i))-1.d0) + dlog(vet) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:195:2: 195 | if(risque_indiv .le. 0.d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:196:2: 196 | penrisqneg(g(i)) = penrisqneg(g(i)) + (2.d0**(min(ni_cur,10)-1)) * risque_indiv**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:197:2: 197 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:202:2: 202 | if(risque_indiv .gt. 0.d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:204:2: 204 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:205:2: 205 | res2(g(i)) = res2(g(i)) + dlog(1.d-12) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:206:2: 206 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:217:2: 217 | if(risque_indiv .gt. 0.d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:218:2: 218 | res1(g(i)) = res1(g(i)) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:219:2: 219 | (t1(i)/etaT(stra(i)))**betaT(stra(i)) + t1(i)*dlog(vet) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:220:2: 220 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:221:2: 221 | res1(g(i)) = res1(g(i)) + t1(i)*1.d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:222:2: 222 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:233:2: 233 | if(risque_indiv .gt. 0.d0)then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:234:2: 234 | res3(g(i)) = res3(g(i)) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:235:2: 235 | (t0(i)/etaT(stra(i)))**betaT(stra(i)) + t0(i)*dlog(vet) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:236:2: 236 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:237:2: 237 | res3(g(i)) = res3(g(i)) + t0(i)*1.d-12 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:238:2: 238 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:271:41: 271 | - penrisqneg(k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:276:2: 276 | - penrisqneg(k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:286:2: 286 | - penrisqneg(k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_pen.f90:294:2: 294 | - penrisqneg(k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpasgenadditif_tps.f90 -o funcpasgenadditif_tps.o funcpasgenadditif_tps.f90:53:2: 53 | res2pen = 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_tps.f90:56:2: 56 | nbrisqneg = 0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_tps.f90:145:2: 145 | if(risqindiv_additif_initial(t1(i),i,bh,np) .le. 0.d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_tps.f90:146:2: 146 | nbrisqneg = nbrisqneg+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_tps.f90:147:2: 147 | res2pen(g(i)) = res2pen(g(i)) + (risqindiv_additif_initial(t1(i),i,bh,np))**2 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_tps.f90:148:2: 148 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_tps.f90:250:2: 250 | if(nbrisqneg .ne. 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_tps.f90:251:2: 251 | do k=1,ng | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_tps.f90:252:2: 252 | res = res - (2.d0**(min(ni_cur,20)))/2.d0 * res2pen(k) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_tps.f90:255:2: 255 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_tps.f90:256:2: 256 | endif | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_tps.f90:465:2: 465 | risqindiv_additif_initial = bbb+dlog(vet) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_tps.f90:618:2: 618 | risqindiv_additif_positif = bbb+dlog(vet) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_tps.f90:619:2: 619 | if (risqindiv_additif_positif.le.0.d0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenadditif_tps.f90:620:2: 620 | risqindiv_additif_positif = 1d-16 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpasgenadditifalternatif_tps.f90 -o funcpasgenadditifalternatif_tps.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpasgenloglogistic.f90 -o funcpasgenloglogistic.o funcpasgenloglogistic.f90:109:2: 109 | dlog(betaT(stra(i)))-dlog(t1(i))- & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenloglogistic.f90:110:2: 110 | dlog( ((etaT(stra(i))/t1(i))**betaT(stra(i)))*dexp(-dlog(vet)) + 1.d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenloglogistic.f90:123:2: 123 | dlog( ((t1(i)/etaT(stra(i)))**betaT(stra(i))) + dexp(-dlog(vet))) - & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenloglogistic.f90:124:2: 124 | dlog( ((t0(i)/etaT(stra(i)))**betaT(stra(i))) + dexp(-dlog(vet))) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenloglogistic.f90:125:2: 125 | RisqCumul(i) = dlog( ((t1(i)/etaT(stra(i)))**betaT(stra(i))) + dexp(-dlog(vet))) + dlog(vet) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenloglogistic.f90:181:2: 181 | res2(g(i)) = res2(g(i)) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenloglogistic.f90:182:2: 182 | dlog(betaT(stra(i)))-dlog(t1(i))- & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenloglogistic.f90:183:2: 183 | dlog( ((etaT(stra(i))/t1(i))**betaT(stra(i)))*dexp(-dlog(vet)) + 1.d0) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenloglogistic.f90:196:2: 196 | res1(g(i)) = res1(g(i)) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenloglogistic.f90:197:2: 197 | dlog(((t1(i)/etaT(stra(i)))**betaT(stra(i)))+dexp(-dlog(vet))) + dlog(vet) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenloglogistic.f90:209:2: 209 | res3(g(i)) = res3(g(i)) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenloglogistic.f90:210:2: 210 | dlog(((t0(i)/etaT(stra(i)))**betaT(stra(i)))+dexp(-dlog(vet))) + dlog(vet) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpasgenlognormal.f90 -o funcpasgenlognormal.o funcpasgenlognormal.f90:32:2: 32 | double precision, external::PHI,alnorm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenlognormal.f90:111:2: 111 | dlog(betaT(stra(i)))-dlog(t1(i))+ & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenlognormal.f90:112:2: 112 | dlog(PHI( -betaT(stra(i))*dlog(t1(i)) + betaT(stra(i))*dlog(etaT(stra(i))) - dlog(vet) ))-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenlognormal.f90:113:2: 113 | dlog(alnorm( -betaT(stra(i))*dlog(t1(i)) + betaT(stra(i))*dlog(etaT(stra(i))) - dlog(vet), .false. )) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenlognormal.f90:126:2: 126 | dlog(alnorm( -betaT(stra(i))*dlog(t1(i)) + betaT(stra(i))*dlog(etaT(stra(i))) - dlog(vet), .false. )) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenlognormal.f90:127:2: 127 | dlog(alnorm( -betaT(stra(i))*dlog(t0(i)) + betaT(stra(i))*dlog(etaT(stra(i))) - dlog(vet), .false. )) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenlognormal.f90:128:2: 128 | RisqCumul(i) = -dlog(alnorm( -betaT(stra(i))*dlog(t1(i)) + betaT(stra(i))*dlog(etaT(stra(i))) - dlog(vet), .false. )) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenlognormal.f90:184:2: 184 | res2(g(i)) = res2(g(i)) + & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenlognormal.f90:185:2: 185 | dlog(betaT(stra(i)))-dlog(t1(i))+ & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenlognormal.f90:186:2: 186 | dlog(PHI( -betaT(stra(i))*dlog(t1(i)) + betaT(stra(i))*dlog(etaT(stra(i))) - dlog(vet) ))-& | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenlognormal.f90:187:2: 187 | dlog(alnorm( -betaT(stra(i))*dlog(t1(i)) + betaT(stra(i))*dlog(etaT(stra(i))) - dlog(vet), .false. )) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenlognormal.f90:200:2: 200 | res1(g(i)) = res1(g(i)) - & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenlognormal.f90:201:2: 201 | dlog(alnorm( -betaT(stra(i))*dlog(t1(i)) + betaT(stra(i))*dlog(etaT(stra(i))) - dlog(vet), .false. )) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenlognormal.f90:213:2: 213 | res3(g(i)) = res3(g(i)) - & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] funcpasgenlognormal.f90:214:2: 214 | dlog(alnorm( -betaT(stra(i))*dlog(t0(i)) + betaT(stra(i))*dlog(etaT(stra(i))) - dlog(vet), .false. )) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpasgenweib.f90 -o funcpasgenweib.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpassplines.f90 -o funcpassplines.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpassplines_intcens.f90 -o funcpassplines_intcens.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpassplines_log.f90 -o funcpassplines_log.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpasweib.f90 -o funcpasweib.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpasweib_intcens.f90 -o funcpasweib_intcens.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c funcpasweib_log.f90 -o funcpasweib_log.o clang-16 -I"/home/hornik/tmp/R/include" -DNDEBUG -I/usr/local/include -DUSE_TYPE_CHECKING_STRICT -D_FORTIFY_SOURCE=3 -fpic -g -O3 -Wall -pedantic -c init.c -o init.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c joint.f90 -o joint.o joint.f90:2965:8: 2965 | use comon,only:typeof,typeJoint!auxig | 1 Warning: Unused module variable ‘typeof’ which has been explicitly imported at (1) [-Wunused-variable] joint.f90:3027:8: 3027 | use comon,only:auxig,typeof,fam,nfam,ng!,auxif,typeJoint | 1 Warning: Unused module variable ‘typeof’ which has been explicitly imported at (1) [-Wunused-variable] joint.f90:3091:8: 3091 | use comon,only:typeof!,auxig | 1 Warning: Unused module variable ‘typeof’ which has been explicitly imported at (1) [-Wunused-variable] joint.f90:3206:8: 3206 | use comon,only:typeof!,auxig | 1 Warning: Unused module variable ‘typeof’ which has been explicitly imported at (1) [-Wunused-variable] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c natural_effects.f90 -o natural_effects.o natural_effects.f90:471:38: 471 | double precision::ht,ht2,h2,som,pm,htm,h2t,h3,h2n,hn, & | 1 Warning: Unused variable ‘pm’ declared at (1) [-Wunused-variable] natural_effects.f90:407:25: 407 | integer::i,j,n,k,l,jj | 1 Warning: Unused variable ‘jj’ declared at (1) [-Wunused-variable] natural_effects.f90:185:27: 185 | double precision::dummy | 1 Warning: Unused variable ‘dummy’ declared at (1) [-Wunused-variable] natural_effects.f90:128:52: 128 | double precision,dimension(2,2)::sigma,sigma2 | 1 Warning: Unused variable ‘sigma2’ declared at (1) [-Wunused-variable] natural_effects.f90:53:25: 53 | double precision::s | 1 Warning: Unused variable ‘s’ declared at (1) [-Wunused-variable] natural_effects.f90:49:48: 49 | double precision,dimension(2,2)::sigma_ind | 1 Warning: Unused variable ‘sigma_ind’ declared at (1) [-Wunused-variable] natural_effects.f90:179:38: 179 | double precision function survival_t(time,s,xs,xt,zs,zt,indic_int) | ^ Warning: ‘__result_survival_t’ may be used uninitialized [-Wmaybe-uninitialized] natural_effects.f90:81:32: 81 | allocate(bgamma(nsplines)) | ^ Warning: ‘nsplines’ may be used uninitialized [-Wmaybe-uninitialized] natural_effects.f90:45:23: 45 | integer::nsplines | ^ note: ‘nsplines’ was declared here gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c jointSurrogate.f90 -o jointSurrogate.o jointSurrogate.f90:901:25: 901 | pourtrial(i)=don_simul(i,trialref1) !indice de l'essai | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] jointSurrogate.f90:902:22: 902 | groupe(i)=don_simul(i,Patienref1) ! numero de l'individu | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] jointSurrogate.f90:948:25: 948 | pourtrial(i)=don_simulS(i,trialref1) !indice de l'essai | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] jointSurrogate.f90:949:22: 949 | groupe(i)=don_simulS(i,Patienref1) ! numero de l'individu | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] jointSurrogate.f90:20:8: 20 | use var_mediation,only:nmc,nmcboot,nboot,ntimes,nknots,splines_ord,& | 1 Warning: Unused module variable ‘boundaryknotsurro’ which has been explicitly imported at (1) [-Wunused-variable] jointSurrogate.f90:20:8: 20 | use var_mediation,only:nmc,nmcboot,nboot,ntimes,nknots,splines_ord,& | 1 Warning: Unused module variable ‘basissplines’ which has been explicitly imported at (1) [-Wunused-variable] jointSurrogate.f90:20:8: 20 | use var_mediation,only:nmc,nmcboot,nboot,ntimes,nknots,splines_ord,& | 1 Warning: Unused module variable ‘innerknotsurro’ which has been explicitly imported at (1) [-Wunused-variable] jointSurrogate.f90:189:35: 189 | integer::nb_processus,rang,code,n_sim_total,suplement,erreur,comm,init_i,max_i,debut_exe,indice_sim_proc,sofeu, & | 1 Warning: Unused variable ‘code’ declared at (1) [-Wunused-variable] jointSurrogate.f90:189:69: 189 | integer::nb_processus,rang,code,n_sim_total,suplement,erreur,comm,init_i,max_i,debut_exe,indice_sim_proc,sofeu, & | 1 Warning: Unused variable ‘comm’ declared at (1) [-Wunused-variable] jointSurrogate.f90:219:30: 219 | double precision::dummy_xx | 1 Warning: Unused variable ‘dummy_xx’ declared at (1) [-Wunused-variable] jointSurrogate.f90:189:64: 189 | integer::nb_processus,rang,code,n_sim_total,suplement,erreur,comm,init_i,max_i,debut_exe,indice_sim_proc,sofeu, & | 1 Warning: Unused variable ‘erreur’ declared at (1) [-Wunused-variable] jointSurrogate.f90:220:20: 220 | integer::file_id | 1 Warning: Unused variable ‘file_id’ declared at (1) [-Wunused-variable] jointSurrogate.f90:218:33: 218 | character(len=1025)::filename | 1 Warning: Unused variable ‘filename’ declared at (1) [-Wunused-variable] jointSurrogate.f90:190:33: 190 | rang_proc,init_i_proc,max_i_proc, code_print ! je redefini ces indices car les precedentes sont utilisees autrement: cas OpenMP | 1 Warning: Unused variable ‘init_i_proc’ declared at (1) [-Wunused-variable] jointSurrogate.f90:190:44: 190 | rang_proc,init_i_proc,max_i_proc, code_print ! je redefini ces indices car les precedentes sont utilisees autrement: cas OpenMP | 1 Warning: Unused variable ‘max_i_proc’ declared at (1) [-Wunused-variable] jointSurrogate.f90:170:65: 170 | CP_R2_boot,CP_ktau_boot,moy_R2_boots_test,se_sigmas_est_0,taux_couverture_thetast_0,se_kendal_10,& | 1 Warning: Unused variable ‘moy_r2_boots_test’ declared at (1) [-Wunused-variable] jointSurrogate.f90:171:88: 171 | bi_R2_trial,bs_R2_trial,thetacopule, thetacopula_init, printnbre, moy_param_cop, moy_se_param_cop,& | 1 Warning: Unused variable ‘printnbre’ declared at (1) [-Wunused-variable] jointSurrogate.f90:7:107: 7 | vrai_val_init,param_init,revision_echelle,random_generator0,sujet_equi,prop_trait,paramSimul,& | 1 Warning: Unused dummy argument ‘prop_trait’ at (1) [-Wunused-dummy-argument] jointSurrogate.f90:189:114: 189 | integer::nb_processus,rang,code,n_sim_total,suplement,erreur,comm,init_i,max_i,debut_exe,indice_sim_proc,sofeu, & | 1 Warning: Unused variable ‘sofeu’ declared at (1) [-Wunused-variable] jointSurrogate.f90:7:96: 7 | vrai_val_init,param_init,revision_echelle,random_generator0,sujet_equi,prop_trait,paramSimul,& | 1 Warning: Unused dummy argument ‘sujet_equi’ at (1) [-Wunused-dummy-argument] jointSurrogate.f90:191:37: 191 | double precision,dimension(10)::t | 1 Warning: Unused variable ‘t’ declared at (1) [-Wunused-variable] jointSurrogate.f90:110:121: 110 | double precision,dimension(:),allocatable::linearpred,vect_kendall_tau,t_chap_kendall,t_chap_R2,vect_kendall_tau_temp,vect_R2 | 1 Warning: Unused variable ‘vect_kendall_tau_temp’ declared at (1) [-Wunused-variable] jointSurrogate.f90:174:100: 174 | double precision, dimension(:,:),allocatable::don_simul,don_simulS, don_simultamp,don_simulStamp,don_simulS1,& | ^ Warning: ‘don_simulstamp.offset’ may be used uninitialized [-Wmaybe-uninitialized] jointSurrogate.f90:843:59: 843 | don_simul(:,1:4) = don_simultamp(:,1:4) | ^ Warning: ‘don_simulstamp.dim[0].ubound’ may be used uninitialized [-Wmaybe-uninitialized] jointSurrogate.f90:174:100: 174 | double precision, dimension(:,:),allocatable::don_simul,don_simulS, don_simultamp,don_simulStamp,don_simulS1,& | ^ note: ‘don_simulstamp.dim[0].ubound’ was declared here jointSurrogate.f90:174:100: Warning: ‘don_simulstamp.dim[1].stride’ may be used uninitialized [-Wmaybe-uninitialized] jointSurrogate.f90:845:132: 845 | don_simul(:,6:size(don_simul,2)) = don_simultamp(:,5:(size(don_simultamp,2)-1)) ! -1 car la derniere colonne n'est pas rempli | ^ Warning: ‘don_simulstamp.dim[1].ubound’ may be used uninitialized [-Wmaybe-uninitialized] jointSurrogate.f90:174:100: 174 | double precision, dimension(:,:),allocatable::don_simul,don_simulS, don_simultamp,don_simulStamp,don_simulS1,& | ^ note: ‘don_simulstamp.dim[1].ubound’ was declared here jointSurrogate.f90:175:62: 175 | parametre_empirique, parametre_estimes,parametre_empirique_NC,parametre_estimes_MPI,& | ^ Warning: ‘parametre_estimes.offset’ may be used uninitialized [-Wmaybe-uninitialized] jointSurrogate.f90:707:26: 707 | parametre_estimes=0.d0 | ^ Warning: ‘parametre_estimes.dim[0].ubound’ may be used uninitialized [-Wmaybe-uninitialized] jointSurrogate.f90:175:62: 175 | parametre_empirique, parametre_estimes,parametre_empirique_NC,parametre_estimes_MPI,& | ^ note: ‘parametre_estimes.dim[0].ubound’ was declared here jointSurrogate.f90:175:62: Warning: ‘parametre_estimes.dim[1].stride’ may be used uninitialized [-Wmaybe-uninitialized] jointSurrogate.f90:175:107: 175 | parametre_empirique, parametre_estimes,parametre_empirique_NC,parametre_estimes_MPI,& | ^ Warning: ‘parametre_estimes_mpi.offset’ may be used uninitialized [-Wmaybe-uninitialized] jointSurrogate.f90:708:30: 708 | parametre_estimes_MPI=0.d0 | ^ Warning: ‘parametre_estimes_mpi.dim[0].ubound’ may be used uninitialized [-Wmaybe-uninitialized] jointSurrogate.f90:175:107: 175 | parametre_empirique, parametre_estimes,parametre_empirique_NC,parametre_estimes_MPI,& | ^ note: ‘parametre_estimes_mpi.dim[0].ubound’ was declared here jointSurrogate.f90:175:107: Warning: ‘parametre_estimes_mpi.dim[1].stride’ may be used uninitialized [-Wmaybe-uninitialized] jointSurrogate.f90:708:30: 708 | parametre_estimes_MPI=0.d0 | ^ Warning: ‘parametre_estimes_mpi.dim[1].ubound’ may be used uninitialized [-Wmaybe-uninitialized] jointSurrogate.f90:175:107: 175 | parametre_empirique, parametre_estimes,parametre_empirique_NC,parametre_estimes_MPI,& | ^ note: ‘parametre_estimes_mpi.dim[1].ubound’ was declared here jointSurrogate.f90:1496:39: 1496 | k0=k01_save | ^ Warning: ‘MEM [(c_char * {ref-all})&k01_save]’ may be used uninitialized [-Wmaybe-uninitialized] jointSurrogate.f90:95:54: 95 | double precision,dimension(2)::k0,k0_save,k01_save,ckappa | ^ note: ‘MEM [(c_char * {ref-all})&k01_save]’ was declared here gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c joint_longi.f90 -o joint_longi.o joint_longi.f90:309:2: 309 | if(TwoPart.eq.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:310:2: 310 | nsujetmax = nsujety0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:311:2: 311 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:312:2: 312 | nsujetmax = nsujetB0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:313:2: 313 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:314:2: 314 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:350:2: 350 | if(method_GH.eq.1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:356:2: 356 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:357:2: 357 | b_lme = 0.d0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:360:2: 360 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:428:2: 428 | i=i+(groupeey(j)-i) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:429:2: 429 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:818:2: 818 | if(TwoPart.eq.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:819:2: 819 | ndatemax = 2*nsujety | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:820:2: 820 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:821:2: 821 | ndatemax = 2*nsujetB | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:822:2: 822 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:823:2: 823 | else | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:1405:2: 1405 | if(MTP0.eq.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:1407:2: 1407 | else if(MTP0.eq.1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:1409:2: 1409 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:1422:2: 1422 | if(MTP0.eq.0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:1424:2: 1424 | else if(MTP0.eq.1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:1426:2: 1426 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:5046:2: 5046 | if(nmescur.gt.0.and.MTP0.eq.1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:5047:2: 5047 | k=1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:5048:2: 5048 | do j=1,nmescurB | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:5049:2: 5049 | if(Bcurrent(j).eq.1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:5050:2: 5050 | mu1GB(k,1)=mu1BG(j,1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:5051:2: 5051 | k=k+1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:5052:2: 5052 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:5053:2: 5053 | end do | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:5054:2: 5054 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] joint_longi.f90:3976:12: 3976 | use comon,only:alpha,res1,res3,aux1,nig,cdc,sigmae,nmesy,& | 1 Warning: Unused module variable ‘nmesy’ which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:3696:12: 3696 | use comon,only:alpha,res1,res3,aux1,nig,cdc,sigmae,nmesy,& | 1 Warning: Unused module variable ‘nmesy’ which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:3419:12: 3419 | use comon,only:alpha,res1,res3,aux1,nig,cdc,sigmae,nmesy,& | 1 Warning: Unused module variable ‘nmesy’ which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:3127:12: 3127 | use comon,only:aux1,cdc,sigmae,nmesy,& | 1 Warning: Unused module variable ‘nmesy’ which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:2474:12: 2474 | use comon,only:aux1,cdc,sigmae,nmesy,nb1,& | 1 Warning: Unused module variable ‘nmesy’ which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:2637:12: 2637 | use comon,only:aux1,cdc,sigmae,nmesy,& | 1 Warning: Unused module variable ‘nmesy’ which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:2838:12: 2838 | use comon,only:aux1,cdc,sigmae,nmesy,& | 1 Warning: Unused module variable ‘nmesy’ which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:4783:114: 4783 | survdcCM =bbb*vet2*dexp(etaydc(1)*Bcurrentvalue(1)+etaydc(2)*cmY(1))!+cdc(i)*etaydc1*current_meanG(1) | ^ Warning: ‘bcurrentvalue$’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi.f90:4485:62: 4485 | double precision,dimension(1) :: Bcv,Bcurrentvalue, cmY,cmGtemp ! add TwoPart | ^ note: ‘bcurrentvalue$’ was declared here joint_longi.f90:4783:114: 4783 | survdcCM =bbb*vet2*dexp(etaydc(1)*Bcurrentvalue(1)+etaydc(2)*cmY(1))!+cdc(i)*etaydc1*current_meanG(1) | ^ Warning: ‘cmy$’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi.f90:4485:67: 4485 | double precision,dimension(1) :: Bcv,Bcurrentvalue, cmY,cmGtemp ! add TwoPart | ^ note: ‘cmy$’ was declared here joint_longi.f90:4466:43: 4466 | double precision function survdcCM(tps,i,bh,np,frail) | ^ Warning: ‘__result_survdccm’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi.f90:5516:84: 5516 | + cdc(i)*(etaydc(1)*Bcurrentvalue(1)+etaydc(2)*dexp(cmY(1))) | ^ Warning: ‘bcurrentvalue$’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi.f90:4839:72: 4839 | double precision,dimension(1) :: Bscalar,Bscal,Bcv,Bcurrentvalue, cmY,cmGtemp | ^ note: ‘bcurrentvalue$’ was declared here joint_longi.f90:5516:84: 5516 | + cdc(i)*(etaydc(1)*Bcurrentvalue(1)+etaydc(2)*dexp(cmY(1))) | ^ Warning: ‘cmy$’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi.f90:4839:77: 4839 | double precision,dimension(1) :: Bscalar,Bscal,Bcv,Bcurrentvalue, cmY,cmGtemp | ^ note: ‘cmy$’ was declared here joint_longi.f90:2672:77: 2672 | Xea22(1:nb1) = b_lme(i,1:nb1) + Matmul(matb_chol,Xea)*sqrt(2.d0) | ^ Warning: ‘xea22’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi.f90:2649:50: 2649 | double precision,dimension(2):: uii, Xea22,Xea | ^ note: ‘xea22’ declared here joint_longi.f90:2672:77: 2672 | Xea22(1:nb1) = b_lme(i,1:nb1) + Matmul(matb_chol,Xea)*sqrt(2.d0) | ^ Warning: ‘xea22’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi.f90:2649:50: 2649 | double precision,dimension(2):: uii, Xea22,Xea | ^ note: ‘xea22’ declared here joint_longi.f90:2672:77: 2672 | Xea22(1:nb1) = b_lme(i,1:nb1) + Matmul(matb_chol,Xea)*sqrt(2.d0) | ^ Warning: ‘xea22’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi.f90:2649:50: 2649 | double precision,dimension(2):: uii, Xea22,Xea | ^ note: ‘xea22’ declared here gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c joint_longi_nl.f90 -o joint_longi_nl.o joint_longi_nl.f90:1845:72: 1845 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i) *2.d0**(nea/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi_nl.f90:1732:22: 1732 | integer :: j,i,k,n,licznik | ^ note: ‘i’ was declared here joint_longi_nl.f90:1989:72: 1989 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i) *2.d0**(nea/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi_nl.f90:1875:22: 1875 | integer :: j,i,k,n,licznik | ^ note: ‘i’ was declared here joint_longi_nl.f90:2131:76: 2131 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i) *2.d0**(nea/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi_nl.f90:2017:22: 2017 | integer :: j,i,k,n,licznik | ^ note: ‘i’ was declared here joint_longi_nl.f90:2273:72: 2273 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i) *2.d0**(nea/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi_nl.f90:2159:22: 2159 | integer :: j,i,k,n,licznik | ^ note: ‘i’ was declared here joint_longi_nl.f90:2417:72: 2417 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i) *2.d0**(nea/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi_nl.f90:2303:22: 2303 | integer :: j,i,k,n,licznik | ^ note: ‘i’ was declared here joint_longi_nl.f90:2559:72: 2559 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i) *2.d0**(nea/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi_nl.f90:2445:22: 2445 | integer :: j,i,k,n,licznik | ^ note: ‘i’ was declared here joint_longi_nl.f90:2701:72: 2701 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i) *2.d0**(nea/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi_nl.f90:2587:22: 2587 | integer :: j,i,k,n,licznik | ^ note: ‘i’ was declared here joint_longi_nl.f90:2844:72: 2844 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i) *2.d0**(nea/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi_nl.f90:2730:22: 2730 | integer :: j,i,k,n,licznik | ^ note: ‘i’ was declared here joint_longi_nl.f90:2987:72: 2987 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i) *2.d0**(nea/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi_nl.f90:2873:22: 2873 | integer :: j,i,k,n,licznik | ^ note: ‘i’ was declared here joint_longi_nl.f90:3130:72: 3130 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i) *2.d0**(nea/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi_nl.f90:3016:22: 3016 | integer :: j,i,k,n,licznik | ^ note: ‘i’ was declared here joint_longi_nl.f90:3273:72: 3273 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i) *2.d0**(nea/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi_nl.f90:3159:22: 3159 | integer :: j,i,k,n,licznik | ^ note: ‘i’ was declared here joint_longi_nl.f90:3416:72: 3416 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i) *2.d0**(nea/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi_nl.f90:3302:22: 3302 | integer :: j,i,k,n,licznik | ^ note: ‘i’ was declared here joint_longi_nl.f90:3559:72: 3559 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i) *2.d0**(nea/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi_nl.f90:3445:22: 3445 | integer :: j,i,k,n,licznik | ^ note: ‘i’ was declared here joint_longi_nl.f90:3702:72: 3702 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i) *2.d0**(nea/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi_nl.f90:3588:22: 3588 | integer :: j,i,k,n,licznik | ^ note: ‘i’ was declared here joint_longi_nl.f90:3845:72: 3845 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i) *2.d0**(nea/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] joint_longi_nl.f90:3731:22: 3731 | integer :: j,i,k,n,licznik | ^ note: ‘i’ was declared here gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c joint_surrogate.f90 -o joint_surrogate.o joint_surrogate.f90:969:17: 969 | nb_ree = nb0 + (nb0*(nb0-1))/2.d0 ! les variances + covariances estimes de la cholesky | 1 Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1) [-Wconversion] joint_surrogate.f90:72:37: 72 | integer::groupe,ij,kk,j,k,nz,n,ii,iii,iii2,cptstr1,cptstr2 & !code | 1 Warning: Unused variable ‘ii’ declared at (1) [-Wunused-variable] joint_surrogate.f90:8:69: 8 | subroutine joint_surrogate(nsujet0,ng0,ntrials0,lignedc0,nz0,nst0,k0,tt00,tt10,ic0,groupe0,trials,pourtrial0,nigs0,& | 1 Warning: Unused dummy argument ‘nst0’ at (1) [-Wunused-dummy-argument] joint_surrogate.f90:14:49: 14 | indice_covST0,paGH,param_weibull0) | 1 Warning: Unused dummy argument ‘pagh’ at (1) [-Wunused-dummy-argument] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c jointgen.f90 -o jointgen.o jointgen.f90:19:2: 19 | init_and_logN, & !initialize,logNormal0 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] jointgen.f90:20:2: 20 | paratps,filtretps0,BetaTpsMat,BetaTpsMatDc, EPS, nbgauss, & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] jointgen.f90:21:2: 21 | familyrisk) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] jointgen.f90:91:2: 91 | double precision,external::funcpajweib, funcpajgenparam | 1 Warning: Nonconforming tab character at (1) [-Wtabs] jointgen.f90:144:2: 144 | integer,dimension(2),intent(in)::init_and_logN | 1 Warning: Nonconforming tab character at (1) [-Wtabs] jointgen.f90:145:2: 145 | integer,dimension(2)::familyrisk | 1 Warning: Nonconforming tab character at (1) [-Wtabs] jointgen.f90:146:2: 146 | integer::initialize | 1 Warning: Nonconforming tab character at (1) [-Wtabs] jointgen.f90:148:2: 148 | initialize = init_and_logN(1) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] jointgen.f90:149:2: 149 | famillerisque = familyrisk | 1 Warning: Nonconforming tab character at (1) [-Wtabs] jointgen.f90:1305:2: 1305 | call marq98j_modadd(k0,b,np,ni,v,res,ier,istop,effet,ca,cb,dd,funcpajgenparam) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] jointgen.f90:1702:2: 1702 | Call distanceJgenparam(b,np,mt1,x1Out,lamOut,xSu1,suOut,x2Out,lam2Out,xSu2,su2Out) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c jointsurrokendall.f90 -o jointsurrokendall.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c longi_uni_nl.f90 -o longi_uni_nl.o longi_uni_nl.f90:54:20: 54 | integer::cpt,cpt_dc,ni | ^ Warning: ‘cpt’ may be used uninitialized [-Wmaybe-uninitialized] longi_uni_nl.f90:462:26: 462 | counts(3) = cpt_dc | ^ Warning: ‘cpt_dc’ may be used uninitialized [-Wmaybe-uninitialized] longi_uni_nl.f90:54:27: 54 | integer::cpt,cpt_dc,ni | ^ note: ‘cpt_dc’ was declared here longi_uni_nl.f90:611:63: 611 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i)*2.d0**(nb1/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] longi_uni_nl.f90:519:22: 519 | integer :: j,i,k,n | ^ note: ‘i’ was declared here longi_uni_nl.f90:732:63: 732 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i)*2.d0**(nb1/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] longi_uni_nl.f90:637:22: 637 | integer :: j,i,k,n | ^ note: ‘i’ was declared here longi_uni_nl.f90:855:63: 855 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i)*2.d0**(nb1/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] longi_uni_nl.f90:760:22: 760 | integer :: j,i,k,n | ^ note: ‘i’ was declared here longi_uni_nl.f90:979:63: 979 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i)*2.d0**(nb1/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] longi_uni_nl.f90:884:22: 884 | integer :: j,i,k,n | ^ note: ‘i’ was declared here longi_uni_nl.f90:1101:63: 1101 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i)*2.d0**(nb1/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] longi_uni_nl.f90:1006:22: 1006 | integer :: j,i,k,n | ^ note: ‘i’ was declared here longi_uni_nl.f90:1223:63: 1223 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i)*2.d0**(nb1/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] longi_uni_nl.f90:1128:22: 1128 | integer :: j,i,k,n | ^ note: ‘i’ was declared here longi_uni_nl.f90:1345:63: 1345 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i)*2.d0**(nb1/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] longi_uni_nl.f90:1250:22: 1250 | integer :: j,i,k,n | ^ note: ‘i’ was declared here longi_uni_nl.f90:1468:63: 1468 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i)*2.d0**(nb1/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] longi_uni_nl.f90:1373:22: 1373 | integer :: j,i,k,n | ^ note: ‘i’ was declared here longi_uni_nl.f90:1591:63: 1591 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i)*2.d0**(nb1/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] longi_uni_nl.f90:1496:22: 1496 | integer :: j,i,k,n | ^ note: ‘i’ was declared here longi_uni_nl.f90:1715:63: 1715 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i)*2.d0**(nb1/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] longi_uni_nl.f90:1620:22: 1620 | integer :: j,i,k,n | ^ note: ‘i’ was declared here longi_uni_nl.f90:1838:63: 1838 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i)*2.d0**(nb1/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] longi_uni_nl.f90:1743:22: 1743 | integer :: j,i,k,n | ^ note: ‘i’ was declared here longi_uni_nl.f90:1960:63: 1960 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i)*2.d0**(nb1/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] longi_uni_nl.f90:1865:22: 1865 | integer :: j,i,k,n | ^ note: ‘i’ was declared here longi_uni_nl.f90:2083:63: 2083 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i)*2.d0**(nb1/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] longi_uni_nl.f90:1988:22: 1988 | integer :: j,i,k,n | ^ note: ‘i’ was declared here longi_uni_nl.f90:2206:63: 2206 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i)*2.d0**(nb1/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] longi_uni_nl.f90:2111:22: 2111 | integer :: j,i,k,n | ^ note: ‘i’ was declared here longi_uni_nl.f90:2329:63: 2329 | if(methodGH.eq.1) ss = ss*invBi_cholDet(i)*2.d0**(nb1/2.d0) | ^ Warning: ‘i’ may be used uninitialized [-Wmaybe-uninitialized] longi_uni_nl.f90:2234:22: 2234 | integer :: j,i,k,n | ^ note: ‘i’ was declared here gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c multiveJoint.f90 -o multiveJoint.o multiveJoint.f90:211:40: 211 | allocate(b01(np1),b02(np2),b03(np3)) | ^ Warning: ‘np1’ may be used uninitialized [-Wmaybe-uninitialized] multiveJoint.f90:68:16: 68 | integer::np1,np2,np3 | ^ note: ‘np1’ declared here gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c nested.f90 -o nested.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c prediction.f90 -o prediction.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c prediction_Recurr_Sha.f90 -o prediction_Recurr_Sha.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c prediction_biv.f90 -o prediction_biv.o prediction_biv.f90:1077:2: 1077 | allocate(frail(1)) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] prediction_biv.f90:1078:2: 1078 | frail(1) = frail1 | 1 Warning: Nonconforming tab character at (1) [-Wtabs] gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c prediction_sha_logn.f90 -o prediction_sha_logn.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c prediction_tri.f90 -o prediction_tri.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c prediction_tri_nl.f90 -o prediction_tri_nl.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c predictionfam.f90 -o predictionfam.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c risque.f90 -o risque.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c somme.f90 -o somme.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c surrosim.f90 -o surrosim.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c survival.f90 -o survival.o gfortran -fopenmp -fpic -g -O2 -Wall -mtune=native -c test.f90 -o test.o clang-16 -shared -L/home/hornik/tmp/R/lib -Wl,-O1 -o frailtypack.so Adonnees.o AparamMultive.o Aparameters.o Integrale_mult_scl.o Integrant_scl.o Pour_Adaptative.o aGhermite.o aaOptim.o aaOptim_New_scl.o aaOptim_New_scl2.o aaOptim_SCL_0.o aaOptimres.o aaUseFunction.o aaUseFunctionG.o aamarq98o.o additive.o afuncpasres.o ahrmsym.o aresidusMartingale.o autres_fonctions.o distance.o epoce.o epoce_log.o epoce_long.o epoce_long_nl.o fortran_random.o frailtypack.o frailtypackgen.o funcpaG_tps.o funcpaGcpm.o funcpaGcpm_intcens.o funcpaGcpm_log.o funcpaGsplines.o funcpaGsplines_intcens.o funcpaGsplines_log.o funcpaGweib.o funcpaGweib_intcens.o funcpaGweib_log.o funcpaMultivCpm.o funcpaMultivSplines.o funcpaMultivWeib.o funcpa_adaptative.o funcpa_laplace.o funcpaacpm.o funcpaasplines.o funcpaaweib.o funcpaj_tps.o funcpajcpm.o funcpajcpm_log.o funcpajgen_tps.o funcpajgeneral.o funcpajgenparam.o funcpajlongisplines.o funcpajlongisplines_nl.o funcpajlongiweib.o funcpajlongiweib_nl.o funcpajsplines.o funcpajsplinesIndiv.o funcpajsplines_copule_surrogate_scl_2.o funcpajsplines_fam.o funcpajsplines_intcens.o funcpajsplines_log.o funcpajsplines_logIndiv.o funcpajsplines_surrogate_scl_1.o funcpajsplines_surrogate_scl_2.o funcpajweib.o funcpajweib_fam.o funcpajweib_intcens.o funcpajweib_log.o funcpalongi_uni.o funcpancpm.o funcpansplines.o funcpanweib.o funcpas_tps.o funcpascpm.o funcpascpm_intcens.o funcpascpm_log.o funcpasgenadditif_alternatif.o funcpasgenadditif_pen.o funcpasgenadditif_tps.o funcpasgenadditifalternatif_tps.o funcpasgenloglogistic.o funcpasgenlognormal.o funcpasgenweib.o funcpassplines.o funcpassplines_intcens.o funcpassplines_log.o funcpasweib.o funcpasweib_intcens.o funcpasweib_log.o init.o joint.o jointSurrogate.o joint_longi.o joint_longi_nl.o joint_surrogate.o jointgen.o jointsurrokendall.o longi_uni_nl.o multiveJoint.o natural_effects.o nested.o prediction.o prediction_Recurr_Sha.o prediction_biv.o prediction_sha_logn.o prediction_tri.o prediction_tri_nl.o predictionfam.o risque.o somme.o surrosim.o survival.o test.o -fopenmp -lgfortran -lm -lquadmath -L/home/hornik/tmp/R/lib -lR installing to /srv/hornik/tmp/CRAN/frailtypack.Rcheck/00LOCK-frailtypack/00new/frailtypack/libs ** R ** data ** demo ** inst ** byte-compile and prepare package for lazy loading Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context Note: ... may be used in an incorrect context ** help *** installing help indices *** copying figures ** building package indices ** installing vignettes ** testing if installed package can be loaded from temporary location ** checking absolute paths in shared objects and dynamic libraries ** testing if installed package can be loaded from final location ** testing if installed package keeps a record of temporary installation path * DONE (frailtypack)