real(kind=8),dimension(:),allocatable :: potEcomp !(0:n_ene+4)
! common /lagrange/
real(kind=8),dimension(:,:),allocatable :: d_t,d_a,d_t_old !(3,0:MAXRES2)
real(kind=8),dimension(:),allocatable :: potEcomp !(0:n_ene+4)
! common /lagrange/
real(kind=8),dimension(:,:),allocatable :: d_t,d_a,d_t_old !(3,0:MAXRES2)