c       sauvegarde variables internes renfort i
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+1)=epsrf(i)
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+2)=eperf(i)             
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+3)=eplrf(i)
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+4)=sigref(i)
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+5)=eprmf(i)
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+6)=mu_r0(i)
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+7)=eprkf(i)
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+8)=spref(i) 
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+9)=eplrc(i) 
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+10)=damrtf(i)
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+11)=damrt1(i)
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+12)=damrt2(i)                 
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+13)=longr(i)
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+14)=sigrf(i)
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+15)=epleqf(i) 
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+16)=damrcf(i) 
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+17)=eplrt(i)
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+18)=diffrf(i)
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+19)=tauif(i)
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+20)=damif(i)               
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+21)=Etf(i)
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+22)=Hsf(i)
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+23)=refrf(i)
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+24)=epart(i)
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+25)=eparv(i)
        varf(NVAR2+(i-1)*NB_VARI_PAR_RENF+26)=source_nl(i)