module map_data !----------------------------------------------------------------------------- ! commom.map ! common /mapp/ integer :: nmap integer,dimension(:),allocatable :: kang,res1,res2,nstep !(maxvar) real(kind=8),dimension(:),allocatable :: ang_from,ang_to !(maxvar) !----------------------------------------------------------------------------- !----------------------------------------------------------------------------- end module map_data