* installing *source* package ‘frailtypack’ ... ** package ‘frailtypack’ successfully unpacked and MD5 sums checked ** using staged installation ** libs using C compiler: ‘gcc-13 (GCC) 13.2.0’ using Fortran compiler: ‘GNU Fortran (GCC) 13.2.0’ make[2]: Entering directory '/data/gannet/ripley/R/packages/tests-LTO/frailtypack/src' gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c Adonnees.f90 -o Adonnees.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c AparamMultive.f90 -o AparamMultive.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c Aparameters.f90 -o Aparameters.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c autres_fonctions.f90 -o autres_fonctions.o autres_fonctions.f90:1765:19: 1765 | character*18 nomvarl,nomvar(nvarmax),nomvar2(nvarmax) | 1 Warning: Obsolescent feature: Old-style character length at (1) autres_fonctions.f90:1766:19: 1766 | character*20 dateamj, zone, heure1 | 1 Warning: Obsolescent feature: Old-style character length at (1) autres_fonctions.f90:2166:19: 2166 | character*18 nomvar(nvarmax),nomvar2(nvarmax) | 1 Warning: Obsolescent feature: Old-style character length at (1) autres_fonctions.f90:2167:19: 2167 | character*20 dateamj, zone, heure1 | 1 Warning: Obsolescent feature: Old-style character length at (1) 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] gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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] gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c aaOptim_New_scl.f90 -o aaOptim_New_scl.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c Integrant_scl.f90 -o Integrant_scl.o Integrant_scl.f90:874:89: 874 | 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] gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c Integrale_mult_scl.f90 -o Integrale_mult_scl.o Integrale_mult_scl.f90:3359:7: 3359 | 101 continue | 1 Warning: Label 101 at (1) defined but not used [-Wunused-label] Integrale_mult_scl.f90:3227:20: 3227 | 1000 continue | 1 Warning: Label 1000 at (1) defined but not used [-Wunused-label] Integrale_mult_scl.f90:3244:7: 3244 | 101 continue | 1 Warning: Label 101 at (1) defined but not used [-Wunused-label] Integrale_mult_scl.f90:3009:20: 3009 | 1000 continue | 1 Warning: Label 1000 at (1) defined but not used [-Wunused-label] Integrale_mult_scl.f90:3026:7: 3026 | 101 continue | 1 Warning: Label 101 at (1) defined but not used [-Wunused-label] Integrale_mult_scl.f90:2793:20: 2793 | 1000 continue | 1 Warning: Label 1000 at (1) defined but not used [-Wunused-label] Integrale_mult_scl.f90:2810:7: 2810 | 101 continue | 1 Warning: Label 101 at (1) defined but not used [-Wunused-label] Integrale_mult_scl.f90:2643:7: 2643 | 110 continue | 1 Warning: Label 110 at (1) defined but not used [-Wunused-label] Integrale_mult_scl.f90:2420:20: 2420 | 1001 continue | 1 Warning: Label 1001 at (1) defined but not used [-Wunused-label] Integrale_mult_scl.f90:2491:7: 2491 | 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:2666:48: 2666 | 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:2666:55: 2666 | 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:2496:79: 2496 | 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:2337:75: 2337 | double precision function gauss_HermMultA_surr(func,vsi,vti,ui,npoint1,n,i) | 1 Warning: Unused dummy argument 'i' at (1) [-Wunused-dummy-argument] gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c aGhermite.f90 -o aGhermite.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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] gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c aaOptim_SCL_0.f90 -o aaOptim_SCL_0.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c aaOptimres.f90 -o aaOptimres.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c aaUseFunction.f90 -o aaUseFunction.o aaUseFunction.f90:989:11: 989 | 125 continue | 1 Warning: Label 125 at (1) defined but not used [-Wunused-label] gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c aaUseFunctionG.f90 -o aaUseFunctionG.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c aamarq98o.f90 -o aamarq98o.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c additive.f90 -o additive.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c afuncpasres.f90 -o afuncpasres.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c ahrmsym.f90 -o ahrmsym.o ahrmsym.f90:790:44: 790 | DATA W(1, 1), T(1, 1) / 1D0, 0D0 / | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:791:91: 791 | DATA ( W(I, 2), T(I, 2), I = 1, 1) /0.5000000000000001D+00, 0.1000000000000000D+01/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:794:55: 794 | 0.6666666666666664D+00, 0.1107367643833737D-15/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:797:55: 797 | 0.4541241452319317D+00, 0.7419637843027258D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:801:55: 801 | 0.5333333333333342D+00, 0.9386691848789097D-16/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:805:55: 805 | 0.4088284695560291D+00, 0.6167065901925933D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:810:55: 810 | 0.4571428571428575D+00, 0.2669848554723344D-16/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:815:55: 815 | 0.3730122576790775D+00, 0.5390798113513754D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:821:55: 821 | 0.4063492063492066D+00, 0.0000000000000000D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:827:55: 827 | 0.3446423349320194D+00, 0.4849357075154977D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:834:55: 834 | 0.3694083694083690D+00, 0.0000000000000000D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:841:55: 841 | 0.3216643615128298D+00, 0.4444030019441390D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:849:55: 849 | 0.3409923409923412D+00, 0.2011511664336819D-15/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:857:55: 857 | 0.3026346268130198D+00, 0.4125904579546022D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:866:55: 866 | 0.3182595182595181D+00, 0.0000000000000000D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:875:55: 875 | 0.2865685212380120D+00, 0.3867606045005573D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:885:55: 885 | 0.2995383701266057D+00, 0.0000000000000000D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:895:55: 895 | 0.2727832346542882D+00, 0.3652457555076979D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:906:55: 906 | 0.2837731927515210D+00, 0.4118522463420039D-15/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:917:55: 917 | 0.2607930634495551D+00, 0.3469641570813557D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:929:55: 929 | 0.2702601835728773D+00, 0.0000000000000000D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:941:55: 941 | 0.2502435965869353D+00, 0.3311793157152742D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:954:55: 954 | 0.2585097408088385D+00, 0.0000000000000000D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:967:55: 967 | 0.2408701155466405D+00, 0.3173700966294525D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:981:55: 981 | 0.2481693511764858D+00, 0.0000000000000000D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:995:55: 995 | 0.2324707356300776D+00, 0.3051559707592978D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1010:55: 1010 | 0.2389778937255043D+00, 0.0000000000000000D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1025:55: 1025 | 0.2248886297506769D+00, 0.2942517144887133D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1041:55: 1041 | 0.2307372767004873D+00, 0.0000000000000000D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1057:55: 1057 | 0.2179999718155776D+00, 0.2844387607362094D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1074:55: 1074 | 0.2232941387424060D+00, 0.9191380905810332D-16/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1091:55: 1091 | 0.2117055698804795D+00, 0.2755464192302757D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1109:55: 1109 | 0.2165276496896071D+00, 0.0000000000000000D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1127:55: 1127 | 0.2059249366691133D+00, 0.2674391839515571D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1146:55: 1146 | 0.2103411454127607D+00, 0.2220535009031490D-16/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1165:55: 1165 | 0.2005920064390222D+00, 0.2600079252490002D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1185:55: 1185 | 0.2046562495907946D+00, 0.0000000000000000D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1205:55: 1205 | 0.1956519870413640D+00, 0.2531636353359348D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1226:55: 1226 | 0.1994086534474408D+00, 0.1536204102353874D-15/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1247:55: 1247 | 0.1910590096619904D+00, 0.2468328960227240D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1269:55: 1269 | 0.1945450277536008D+00, 0.2585532684499631D-15/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1291:55: 1291 | 0.1867743488620199D+00, 0.2409545348665914D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1314:55: 1314 | 0.1900207247825863D+00, 0.0000000000000000D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1337:55: 1337 | 0.1827650568597313D+00, 0.2354771181719222D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1361:55: 1361 | 0.1857980420096402D+00, 0.0000000000000000D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1385:55: 1385 | 0.1790029030973513D+00, 0.2303570440689780D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1410:55: 1410 | 0.1818448921796476D+00, 0.0000000000000000D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1435:55: 1435 | 0.1754635418118663D+00, 0.2255570729801638D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1461:55: 1461 | 0.1781337719310835D+00, 0.0000000000000000D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement ahrmsym.f90:1487:55: 1487 | 0.1721258519924433D+00, 0.2210451816445435D+00/ | 1 Warning: Obsolescent feature: DATA statement at (1) after the first executable statement gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c aresidusMartingale.f90 -o aresidusMartingale.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c distance.f90 -o distance.o distance.f90:1195:2: 1195 | subroutine distanceSloglogistic(b,m,mt,xT,moyLamT,xSuT,moysuT) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1290:2: 1290 | 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:1291:2: 1291 | ( 1.d0 + (x/bgen(ii+1))**(bgen(ii)) ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1292:2: 1292 | 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:1293:2: 1293 | ( 1.d0 + (x/(b(ii+1)**2))**(b(ii)**2) ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1358:2: 1358 | glT(k,jj) = dlog( 1.d0 + (x/bgen(ii+1))**(bgen(ii)) ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1361:2: 1361 | glTW(jj) = dlog( 1.d0 + (x/(b(ii+1)**2))**(b(ii)**2) ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1411:2: 1411 | subroutine distanceSlognormal(b,m,mt,xT,moyLamT,xSuT,moysuT) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1436:2: 1436 | double precision, external::PHI,alnorm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1508:2: 1508 | lamT(k,jj) = (bgen(ii)/x) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1509:2: 1509 | PHI( -bgen(ii)*dlog(x) + bgen(ii)*dlog(bgen(ii+1)) ) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1510:2: 1510 | 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 | lamTW(jj) = ((b(ii)**2)/x) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1512:2: 1512 | PHI( -(b(ii)**2)*dlog(x) + (b(ii)**2)*dlog(b(ii+1)**2) ) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:1513:2: 1513 | 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:1577:2: 1577 | 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:1580:2: 1580 | 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:2809:2: 2809 | integer::famillerisquedc,famillerisquerec | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2811:2: 2811 | double precision, external::PHI,alnorm | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2815:2: 2815 | famillerisquerec = famillerisque(2) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2906:2: 2906 | if (famillerisquerec .eq. 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2909:2: 2909 | else if (famillerisquerec .eq. 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2910:2: 2910 | 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:2911:2: 2911 | ( 1.d0 + (x/bgen(ii+1))**(bgen(ii)) ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2912:2: 2912 | 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:2913:2: 2913 | ( 1.d0 + (x/(b(ii+1)**2))**(b(ii)**2) ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2914:2: 2914 | else if (famillerisquerec .eq. 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2915:2: 2915 | lamR(k,jj) = (bgen(ii)/x) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2916:2: 2916 | PHI( -bgen(ii)*dlog(x) + bgen(ii)*dlog(bgen(ii+1)) ) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2917:2: 2917 | alnorm( -bgen(ii)*dlog(x) + bgen(ii)*dlog(bgen(ii+1)), .false. ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2918:2: 2918 | lamRW(jj) = ((b(ii)**2)/x) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2919:2: 2919 | PHI( -(b(ii)**2)*dlog(x) + (b(ii)**2)*dlog(b(ii+1)**2) ) / & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2920:2: 2920 | 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:2921:2: 2921 | else if ((famillerisquerec .eq. 3) .or. (famillerisquerec .eq. 4)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2924:2: 2924 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2931:2: 2931 | if (famillerisquedc .eq. 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2934:2: 2934 | else if (famillerisquedc .eq. 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2935:2: 2935 | 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:2936:2: 2936 | ( 1.d0 + (x/bgen(nstRec*2+1+1))**(bgen(nstRec*2+1)) ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2937:2: 2937 | 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:2938:2: 2938 | ( 1.d0 + (x/(b(nstRec*2+1+1)**2))**(b(nstRec*2+1)**2) ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2939:2: 2939 | else if (famillerisquedc .eq. 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2940:2: 2940 | lamDC(k) = (bgen(nstRec*2+1)/x) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2941:2: 2941 | 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:2942:2: 2942 | 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:2943:2: 2943 | lamDCW = ((b(nstRec*2+1)**2)/x) * & | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2944:2: 2944 | 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:2945:2: 2945 | 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:2946:2: 2946 | else if ((famillerisquedc .eq. 3) .or. (famillerisquedc .eq. 4)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2949:2: 2949 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2959:2: 2959 | if (famillerisquerec .eq. 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2964:2: 2964 | else if (famillerisquerec .eq. 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2965:2: 2965 | glR(k,jj) = dlog( 1.d0 + (x/bgen(ii+1))**(bgen(ii)) ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2967:2: 2967 | glRW(jj) = dlog( 1.d0 + (x/(b(ii+1)**2))**(b(ii)**2) ) | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2969:2: 2969 | else if (famillerisquerec .eq. 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2970:2: 2970 | 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:2972:2: 2972 | 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:2974:2: 2974 | else if ((famillerisquerec .eq. 3) .or. (famillerisquerec .eq. 4)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2979:2: 2979 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2989:2: 2989 | if (famillerisquedc .eq. 0) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2994:2: 2994 | else if (famillerisquedc .eq. 1) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:2995:2: 2995 | 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:2997:2: 2997 | 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:2999:2: 2999 | else if (famillerisquedc .eq. 2) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:3000:2: 3000 | 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:3002:2: 3002 | 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:3004:2: 3004 | else if ((famillerisquedc .eq. 3) .or. (famillerisquedc .eq. 4)) then | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:3009:2: 3009 | end if | 1 Warning: Nonconforming tab character at (1) [-Wtabs] distance.f90:194:45: 194 | integer::nz1,i,j,n,np,k,l,effet,mt,jj,nzT | 1 Warning: Unused variable 'jj' declared at (1) [-Wunused-variable] gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c epoce.f90 -o epoce.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c epoce_log.f90 -o epoce_log.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c epoce_long.f90 -o epoce_long.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c epoce_long_nl.f90 -o epoce_long_nl.o gcc-13 -I"/data/gannet/ripley/R/R-devel/include" -DNDEBUG -I/usr/local/include -fpic -g -O2 -Wall -pedantic -mtune=native -Wp,-D_FORTIFY_SOURCE=3 -fexceptions -fstack-protector-strong -fstack-clash-protection -fcf-protection -Werror=implicit-function-declaration -Wstrict-prototypes -flto=10 -c fortran_random.c -o fortran_random.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpaG_tps.f90 -o funcpaG_tps.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpaGcpm.f90 -o funcpaGcpm.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpaGcpm_intcens.f90 -o funcpaGcpm_intcens.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpaGcpm_log.f90 -o funcpaGcpm_log.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpaGsplines.f90 -o funcpaGsplines.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpaGsplines_intcens.f90 -o funcpaGsplines_intcens.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpaGsplines_log.f90 -o funcpaGsplines_log.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpaGweib.f90 -o funcpaGweib.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpaGweib_intcens.f90 -o funcpaGweib_intcens.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpaGweib_log.f90 -o funcpaGweib_log.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpaMultivCpm.f90 -o funcpaMultivCpm.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpaMultivSplines.f90 -o funcpaMultivSplines.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpaMultivWeib.f90 -o funcpaMultivWeib.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpaacpm.f90 -o funcpaacpm.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpaasplines.f90 -o funcpaasplines.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpaaweib.f90 -o funcpaaweib.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpaj_tps.f90 -o funcpaj_tps.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpajcompetingsplines.f90 -o funcpajcompetingsplines.o funcpajcompetingsplines.f90:60:25: 60 | double precision::int | 1 Warning: Unused variable 'int' declared at (1) [-Wunused-variable] funcpajcompetingsplines.f90:32:33: 32 | double precision::pe1,pe2,pe3,pe4,inv,inv2,som1,som2,som3,som4,& | 1 Warning: Unused variable 'pe3' declared at (1) [-Wunused-variable] funcpajcompetingsplines.f90:32:61: 32 | double precision::pe1,pe2,pe3,pe4,inv,inv2,som1,som2,som3,som4,& | 1 Warning: Unused variable 'som3' declared at (1) [-Wunused-variable] funcpajcompetingsplines.f90:33:21: 33 | res,vet,vet2,vet3,vet4,h1,pi,frail,frail2,weight,weight2,ss | 1 Warning: Unused variable 'vet3' declared at (1) [-Wunused-variable] gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpajcompetingweib.f90 -o funcpajcompetingweib.o funcpajcompetingweib.f90:32:43: 32 | integer,dimension(ngmax)::cpt, deltaRes!, cptmeta | 1 Warning: Unused variable 'deltares' declared at (1) [-Wunused-variable] funcpajcompetingweib.f90:48:15: 48 | INTEGER::ii,jj,npg ! delete npg? | 1 Warning: Unused variable 'ii' declared at (1) [-Wunused-variable] funcpajcompetingweib.f90:42:25: 42 | double precision::int | 1 Warning: Unused variable 'int' declared at (1) [-Wunused-variable] funcpajcompetingweib.f90:41:30: 41 | ,res3dc,res2dc2,integrale1,integrale2,integrale3!,res2meta | 1 Warning: Unused variable 'integrale1' declared at (1) [-Wunused-variable] funcpajcompetingweib.f90:41:41: 41 | ,res3dc,res2dc2,integrale1,integrale2,integrale3!,res2meta | 1 Warning: Unused variable 'integrale2' declared at (1) [-Wunused-variable] funcpajcompetingweib.f90:48:18: 48 | INTEGER::ii,jj,npg ! delete npg? | 1 Warning: Unused variable 'jj' declared at (1) [-Wunused-variable] funcpajcompetingweib.f90:48:22: 48 | INTEGER::ii,jj,npg ! delete npg? | 1 Warning: Unused variable 'npg' declared at (1) [-Wunused-variable] funcpajcompetingweib.f90:45:28: 45 | double precision::ss,ss1 | 1 Warning: Unused variable 'ss1' declared at (1) [-Wunused-variable] funcpajcompetingweib.f90:34:39: 34 | double precision::res,vet,vet2,vet3,vet4,frail,frail2,weight,weight2 | 1 Warning: Unused variable 'vet3' declared at (1) [-Wunused-variable] gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpajcpm.f90 -o funcpajcpm.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpajcpm_log.f90 -o funcpajcpm_log.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpajgeneral.f90 -o funcpajgeneral.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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] gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpajlongisplines2.f90 -o funcpajlongisplines2.o funcpajlongisplines2.f90:109:14: 109 | real::tstart,tstop | 1 Warning: Unused variable 'tstart' declared at (1) [-Wunused-variable] funcpajlongisplines2.f90:109:20: 109 | real::tstart,tstop | 1 Warning: Unused variable 'tstop' declared at (1) [-Wunused-variable] gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpajlongiweib.f90 -o funcpajlongiweib.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpajlongiweib_nl.f90 -o funcpajlongiweib_nl.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpajsplines.f90 -o funcpajsplines.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpajsplinesIndiv.f90 -o funcpajsplinesIndiv.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpajsplines_fam.f90 -o funcpajsplines_fam.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpajsplines_intcens.f90 -o funcpajsplines_intcens.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpajsplines_log.f90 -o funcpajsplines_log.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpajsplines_logIndiv.f90 -o funcpajsplines_logIndiv.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpajsplines_surrogate_scl_1.f90 -o funcpajsplines_surrogate_scl_1.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpajweib.f90 -o funcpajweib.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpajweib_fam.f90 -o funcpajweib_fam.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpajweib_intcens.f90 -o funcpajweib_intcens.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpajweib_log.f90 -o funcpajweib_log.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpancpm.f90 -o funcpancpm.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpansplines.f90 -o funcpansplines.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpanweib.f90 -o funcpanweib.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpas_tps.f90 -o funcpas_tps.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpascpm.f90 -o funcpascpm.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpascpm_intcens.f90 -o funcpascpm_intcens.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpascpm_log.f90 -o funcpascpm_log.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpasgenadditifalternatif_tps.f90 -o funcpasgenadditifalternatif_tps.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpasgenweib.f90 -o funcpasgenweib.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpassplines.f90 -o funcpassplines.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpassplines_intcens.f90 -o funcpassplines_intcens.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpassplines_log.f90 -o funcpassplines_log.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpasweib.f90 -o funcpasweib.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpasweib_intcens.f90 -o funcpasweib_intcens.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c funcpasweib_log.f90 -o funcpasweib_log.o gcc-13 -I"/data/gannet/ripley/R/R-devel/include" -DNDEBUG -I/usr/local/include -fpic -g -O2 -Wall -pedantic -mtune=native -Wp,-D_FORTIFY_SOURCE=3 -fexceptions -fstack-protector-strong -fstack-clash-protection -fcf-protection -Werror=implicit-function-declaration -Wstrict-prototypes -flto=10 -c init.c -o init.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c natural_effects.f90 -o natural_effects.o natural_effects.f90:470:38: 470 | 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:406:25: 406 | 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:1127:40: 1127 | 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:889:30: 889 | double precision::time,s | 1 Warning: Unused variable 's' declared at (1) [-Wunused-variable] gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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 '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 '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 '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] gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c joint_competing.f90 -o joint_competing.o joint_competing.f90:220:54: 220 | double precision,dimension(0:100,1)::BetaTpsMatMul | 1 Warning: Unused variable 'betatpsmatmul' declared at (1) [-Wunused-variable] joint_competing.f90:193:52: 193 | double precision,dimension(1,nbvar(1))::coefBeta | 1 Warning: Unused variable 'coefbeta' declared at (1) [-Wunused-variable] joint_competing.f90:194:54: 194 | double precision,dimension(1,nbvar(2))::coefBetadc | 1 Warning: Unused variable 'coefbetadc' declared at (1) [-Wunused-variable] joint_competing.f90:195:53: 195 | double precision,dimension(1,nbvar(3))::coefBetaM | 1 Warning: Unused variable 'coefbetam' declared at (1) [-Wunused-variable] joint_competing.f90:47:31: 47 | ni,constraintfrail,cptEvent,ResMartingaleEvent,frailtyEstimates, & | 1 Warning: Dummy argument 'cptevent' at (1) was declared INTENT(OUT) but was not set [-Wunused-dummy-argument] joint_competing.f90:204:17: 204 | integer::cpts | 1 Warning: Unused variable 'cpts' declared at (1) [-Wunused-variable] joint_competing.f90:202:26: 202 | double precision::ddls | 1 Warning: Unused variable 'ddls' declared at (1) [-Wunused-variable] joint_competing.f90:186:21: 186 | integer::indd,ent,entdc,entmeta,typeof0,nzsha | 1 Warning: Unused variable 'ent' declared at (1) [-Wunused-variable] joint_competing.f90:186:27: 186 | integer::indd,ent,entdc,entmeta,typeof0,nzsha | 1 Warning: Unused variable 'entdc' declared at (1) [-Wunused-variable] joint_competing.f90:186:35: 186 | integer::indd,ent,entdc,entmeta,typeof0,nzsha | 1 Warning: Unused variable 'entmeta' declared at (1) [-Wunused-variable] joint_competing.f90:221:38: 221 | double precision,dimension(3)::EPS | 1 Warning: Unused variable 'eps' declared at (1) [-Wunused-variable] joint_competing.f90:219:51: 219 | integer,dimension(:),allocatable::filtretps0Mul | 1 Warning: Unused variable 'filtretps0mul' declared at (1) [-Wunused-variable] joint_competing.f90:47:67: 47 | ni,constraintfrail,cptEvent,ResMartingaleEvent,frailtyEstimates, & | 1 Warning: Unused dummy argument 'frailtyestimates' at (1) [-Wunused-dummy-argument] joint_competing.f90:216:73: 216 | double precision,dimension(nobsEvent(2))::Resmartingales,frailtypreds,frailtysds,frailtyvars | 1 Warning: Unused variable 'frailtypreds' declared at (1) [-Wunused-variable] joint_competing.f90:216:84: 216 | double precision,dimension(nobsEvent(2))::Resmartingales,frailtypreds,frailtysds,frailtyvars | 1 Warning: Unused variable 'frailtysds' declared at (1) [-Wunused-variable] joint_competing.f90:216:96: 216 | double precision,dimension(nobsEvent(2))::Resmartingales,frailtypreds,frailtysds,frailtyvars | 1 Warning: Unused variable 'frailtyvars' declared at (1) [-Wunused-variable] joint_competing.f90:205:56: 205 | double precision,dimension(:,:),allocatable::H_hess0,HIH0 | 1 Warning: Unused variable 'h_hess0' declared at (1) [-Wunused-variable] joint_competing.f90:205:61: 205 | double precision,dimension(:,:),allocatable::H_hess0,HIH0 | 1 Warning: Unused variable 'hih0' declared at (1) [-Wunused-variable] joint_competing.f90:186:17: 186 | integer::indd,ent,entdc,entmeta,typeof0,nzsha | 1 Warning: Unused variable 'indd' declared at (1) [-Wunused-variable] joint_competing.f90:206:65: 206 | double precision,dimension(2)::LCVs,shapeweibs,scaleweibs,k0s | 1 Warning: Unused variable 'k0s' declared at (1) [-Wunused-variable] joint_competing.f90:187:33: 187 | double precision::temp,kappa1 | 1 Warning: Unused variable 'kappa1' declared at (1) [-Wunused-variable] joint_competing.f90:46:63: 46 | lam2Out,xSu2,su2Out,x3Out,lam3Out,xSu3,su3Out,x4Out,lam4Out,xSu4,su4Out, & | 1 Warning: Unused dummy argument 'lam4out' at (1) [-Wunused-dummy-argument] joint_competing.f90:210:59: 210 | double precision,dimension(:,:,:),allocatable::lamTOuts !en plus | 1 Warning: Unused variable 'lamtouts' declared at (1) [-Wunused-variable] joint_competing.f90:206:39: 206 | double precision,dimension(2)::LCVs,shapeweibs,scaleweibs,k0s | 1 Warning: Unused variable 'lcvs' declared at (1) [-Wunused-variable] joint_competing.f90:217:58: 217 | double precision,dimension(:),allocatable::linearpreds,martingaleCoxs,times | 1 Warning: Unused variable 'linearpreds' declared at (1) [-Wunused-variable] joint_competing.f90:217:73: 217 | double precision,dimension(:),allocatable::linearpreds,martingaleCoxs,times | 1 Warning: Unused variable 'martingalecoxs' declared at (1) [-Wunused-variable] joint_competing.f90:218:40: 218 | integer::timedepMul,nbinnerknots0Mul,qorder0Mul | 1 Warning: Unused variable 'nbinnerknots0mul' declared at (1) [-Wunused-variable] joint_competing.f90:167:26: 167 | integer::nbIntervEvent,nz0 | 1 Warning: Unused variable 'nbintervevent' declared at (1) [-Wunused-variable] joint_competing.f90:172:37: 172 | integer::np1,np2,np3,np4,np2joint | 1 Warning: Unused variable 'np2joint' declared at (1) [-Wunused-variable] joint_competing.f90:186:49: 186 | integer::indd,ent,entdc,entmeta,typeof0,nzsha | 1 Warning: Unused variable 'nzsha' declared at (1) [-Wunused-variable] joint_competing.f90:218:51: 218 | integer::timedepMul,nbinnerknots0Mul,qorder0Mul | 1 Warning: Unused variable 'qorder0mul' declared at (1) [-Wunused-variable] joint_competing.f90:47:50: 47 | ni,constraintfrail,cptEvent,ResMartingaleEvent,frailtyEstimates, & | 1 Warning: Unused dummy argument 'resmartingaleevent' at (1) [-Wunused-dummy-argument] joint_competing.f90:216:60: 216 | double precision,dimension(nobsEvent(2))::Resmartingales,frailtypreds,frailtysds,frailtyvars | 1 Warning: Unused variable 'resmartingales' declared at (1) [-Wunused-variable] joint_competing.f90:206:61: 206 | double precision,dimension(2)::LCVs,shapeweibs,scaleweibs,k0s | 1 Warning: Unused variable 'scaleweibs' declared at (1) [-Wunused-variable] joint_competing.f90:206:50: 206 | double precision,dimension(2)::LCVs,shapeweibs,scaleweibs,k0s | 1 Warning: Unused variable 'shapeweibs' declared at (1) [-Wunused-variable] joint_competing.f90:203:52: 203 | double precision,dimension(:),allocatable::str00 | 1 Warning: Unused variable 'str00' declared at (1) [-Wunused-variable] joint_competing.f90:46:75: 46 | lam2Out,xSu2,su2Out,x3Out,lam3Out,xSu3,su3Out,x4Out,lam4Out,xSu4,su4Out, & | 1 Warning: Unused dummy argument 'su4out' at (1) [-Wunused-dummy-argument] joint_competing.f90:212:48: 212 | double precision,dimension(100,3,1)::suTOuts !en plus | 1 Warning: Unused variable 'sutouts' declared at (1) [-Wunused-variable] joint_competing.f90:187:26: 187 | double precision::temp,kappa1 | 1 Warning: Unused variable 'temp' declared at (1) [-Wunused-variable] joint_competing.f90:49:8: 49 | time,timedc,timeM,ghNodes0,ghWeights0,tolerance0) | 1 Warning: Unused dummy argument 'time' at (1) [-Wunused-dummy-argument] joint_competing.f90:49:15: 49 | time,timedc,timeM,ghNodes0,ghWeights0,tolerance0) | 1 Warning: Unused dummy argument 'timedc' at (1) [-Wunused-dummy-argument] joint_competing.f90:218:23: 218 | integer::timedepMul,nbinnerknots0Mul,qorder0Mul | 1 Warning: Unused variable 'timedepmul' declared at (1) [-Wunused-variable] joint_competing.f90:49:21: 49 | time,timedc,timeM,ghNodes0,ghWeights0,tolerance0) | 1 Warning: Unused dummy argument 'timem' at (1) [-Wunused-dummy-argument] joint_competing.f90:217:79: 217 | double precision,dimension(:),allocatable::linearpreds,martingaleCoxs,times | 1 Warning: Unused variable 'times' declared at (1) [-Wunused-variable] joint_competing.f90:46:55: 46 | lam2Out,xSu2,su2Out,x3Out,lam3Out,xSu3,su3Out,x4Out,lam4Out,xSu4,su4Out, & | 1 Warning: Unused dummy argument 'x4out' at (1) [-Wunused-dummy-argument] joint_competing.f90:197:53: 197 | double precision,dimension(1,nobsEvent(1))::XBeta | 1 Warning: Unused variable 'xbeta' declared at (1) [-Wunused-variable] joint_competing.f90:198:55: 198 | double precision,dimension(1,nobsEvent(2))::XBetadc!, XBetadc2 | 1 Warning: Unused variable 'xbetadc' declared at (1) [-Wunused-variable] joint_competing.f90:199:54: 199 | double precision,dimension(1,nobsEvent(3))::XBetaM | 1 Warning: Unused variable 'xbetam' declared at (1) [-Wunused-variable] joint_competing.f90:46:68: 46 | lam2Out,xSu2,su2Out,x3Out,lam3Out,xSu3,su3Out,x4Out,lam4Out,xSu4,su4Out, & | 1 Warning: Unused dummy argument 'xsu4' at (1) [-Wunused-dummy-argument] joint_competing.f90:214:44: 214 | double precision,dimension(100,1)::xSuTs !en plus | 1 Warning: Unused variable 'xsuts' declared at (1) [-Wunused-variable] joint_competing.f90:208:55: 208 | double precision,dimension(:,:),allocatable::xTOuts !en plus | 1 Warning: Unused variable 'xtouts' declared at (1) [-Wunused-variable] joint_competing.f90:215:50: 215 | double precision,dimension(:),allocatable::zis | 1 Warning: Unused variable 'zis' declared at (1) [-Wunused-variable] gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c joint_longi.f90 -o joint_longi.o joint_longi.f90:5705:6: 5705 | use var_mediation,only:nuzm,nuzt,treat_ind,nparammed,& | 1 Warning: Unused module variable 'betazm' which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:5705:6: 5705 | use var_mediation,only:nuzm,nuzt,treat_ind,nparammed,& | 1 Warning: Unused module variable 'betazt' which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:5740:23: 5740 | double precision::lim=1d-9 | 1 Warning: Unused variable 'lim' declared at (1) [-Wunused-variable] joint_longi.f90:5737:26: 5737 | double precision::resint | 1 Warning: Unused variable 'resint' declared at (1) [-Wunused-variable] joint_longi.f90:5697:6: 5697 | use comon,only:cdc,sigmae,nmesy,& | 1 Warning: Unused module variable 'zi' which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:37:8: 37 | use donnees,only:MC1,MC2,QMC1000_1,QMC1000_2,QMC500_1,QMC500_2!,!QMC5000_1,QMC5000_2, | 1 Warning: Unused module variable 'mc1' which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:37:8: 37 | use donnees,only:MC1,MC2,QMC1000_1,QMC1000_2,QMC500_1,QMC500_2!,!QMC5000_1,QMC5000_2, | 1 Warning: Unused module variable 'mc2' which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:5384:6: 5384 | use comon, only:nb1,nodes_number,ut | 1 Warning: Unused module variable 'nb1' which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:5384:6: 5384 | use comon, only:nb1,nodes_number,ut | 1 Warning: Unused module variable 'nodes_number' which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:5383:6: 5383 | use donnees,only:QMC500_1,QMC500_2 ! pour les points et poids de quadrature (fichier Adonnees.f90) | 1 Warning: Unused module variable 'qmc500_1' which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:5383:6: 5383 | use donnees,only:QMC500_1,QMC500_2 ! pour les points et poids de quadrature (fichier Adonnees.f90) | 1 Warning: Unused module variable 'qmc500_2' which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:5437:6: 5437 | use comon, only:nb1,nodes_number,ut | 1 Warning: Unused module variable 'nb1' which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:5437:6: 5437 | use comon, only:nb1,nodes_number,ut | 1 Warning: Unused module variable 'nodes_number' which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:5533:28: 5533 | double precision::frailpol | 1 Warning: Unused variable 'frailpol' declared at (1) [-Wunused-variable] joint_longi.f90:5519:6: 5519 | use comon,only:method_GH,invBi_cholDet,nea,typeJoint,nb1,maxmesy,ut!nby,auxig,typeof,nb1,nea | 1 Warning: Unused module variable 'invbi_choldet' which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:5519:6: 5519 | use comon,only:method_GH,invBi_cholDet,nea,typeJoint,nb1,maxmesy,ut!nby,auxig,typeof,nb1,nea | 1 Warning: Unused module variable 'method_gh' which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:5519:6: 5519 | use comon,only:method_GH,invBi_cholDet,nea,typeJoint,nb1,maxmesy,ut!nby,auxig,typeof,nb1,nea | 1 Warning: Unused module variable 'nea' which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:5519:6: 5519 | use comon,only:method_GH,invBi_cholDet,nea,typeJoint,nb1,maxmesy,ut!nby,auxig,typeof,nb1,nea | 1 Warning: Unused module variable 'typejoint' which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:6378:6: 6378 | use var_mediation,only:nuzm,nuzt,treat_ind,nparammed,betazm,betazt | 1 Warning: Unused module variable 'betazm' which has been explicitly imported at (1) [-Wunused-variable] joint_longi.f90:6378:6: 6378 | use var_mediation,only:nuzm,nuzt,treat_ind,nparammed,betazm,betazt | 1 Warning: Unused module variable 'betazt' which has been explicitly imported at (1) [-Wunused-variable] gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c joint_longi_nl.f90 -o joint_longi_nl.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c jointsurrokendall.f90 -o jointsurrokendall.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c longi_uni_nl.f90 -o longi_uni_nl.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c multiveJoint.f90 -o multiveJoint.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c nested.f90 -o nested.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c prediction.f90 -o prediction.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c prediction_Recurr_Sha.f90 -o prediction_Recurr_Sha.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -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-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c prediction_sha_logn.f90 -o prediction_sha_logn.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c prediction_tri.f90 -o prediction_tri.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c prediction_tri_nl.f90 -o prediction_tri_nl.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c predictionfam.f90 -o predictionfam.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c risque.f90 -o risque.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c somme.f90 -o somme.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c surrosim.f90 -o surrosim.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c survival.f90 -o survival.o gfortran-13 -fopenmp -fpic -g -O2 -mtune=native -Wall -pedantic -flto=10 -c test.f90 -o test.o gcc-13 -shared -g -O2 -Wall -pedantic -mtune=native -Wp,-D_FORTIFY_SOURCE=3 -fexceptions -fstack-protector-strong -fstack-clash-protection -fcf-protection -Werror=implicit-function-declaration -Wstrict-prototypes -flto=10 -fpic -L/usr/local/gcc13/lib64 -L/usr/local/lib64 -L/usr/local/clang18/lib/x86_64-unknown-linux-gnu -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 funcpajcompetingsplines.o funcpajcompetingweib.o funcpajcpm.o funcpajcpm_log.o funcpajgen_tps.o funcpajgeneral.o funcpajgenparam.o funcpajlongisplines.o funcpajlongisplines2.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_competing.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 frailtypack.h:97:1: warning: type of 'joint_longi_' does not match original declaration [-Wlto-type-mismatch] 97 | F77_SUB(joint_longi)(const int *vectnsujet, const int *ngnzag, double *k0, | ^ joint_longi.f90:9:22: note: 'joint_longi' was previously declared here 9 | subroutine joint_longi(VectNsujet,ngnzag,k0,tt00,tt10,ic0,groupe0& | ^ joint_longi.f90:9:22: note: code may be misoptimized unless '-fno-strict-aliasing' is used autres_fonctions.f90:3772:35: warning: type of 'updaterandomseed' does not match original declaration [-Wlto-type-mismatch] 3772 | CALL updaterandomseed(seed) | ^ fortran_random.c:4:6: note: type mismatch in parameter 1 4 | void F77_SUB(updaterandomseed)(int seed) { | ^ fortran_random.c:4:6: note: 'updaterandomseed_' was previously declared here fortran_random.c:4:6: note: code may be misoptimized unless '-fno-strict-aliasing' is used make[2]: Leaving directory '/data/gannet/ripley/R/packages/tests-LTO/frailtypack/src' installing to /data/gannet/ripley/R/packages/tests-LTO/Libs/frailtypack-lib/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) Time 4:12.42, 459.57 + 15.31