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 :: d_a_work !(6*MAXRES)
real(kind=8),dimension(:,:),allocatable :: Gmat,Ginv,A,&
Gsqrp,Gsqrm,Gvec !(maxres2,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)
real(kind=8),dimension(:),allocatable :: d_a_work !(6*MAXRES)
real(kind=8),dimension(:,:),allocatable :: Gmat,Ginv,A,&
Gsqrp,Gsqrm,Gvec !(maxres2,maxres2)