2 !-----------------------------------------------------------------------------
6 integer,dimension(:),allocatable :: kang,res1,res2,nstep !(maxvar)
7 real(kind=8),dimension(:),allocatable :: ang_from,ang_to !(maxvar)
8 !-----------------------------------------------------------------------------
9 !-----------------------------------------------------------------------------