X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fdata%2Fmap_data.f90;fp=source%2Funres%2Fdata%2Fmap_data.f90;h=b706d35f3fd8eb65c470b657552011cb4f1804f0;hb=299e2c41124d3fa8adba7244716515a2cc160ed1;hp=0000000000000000000000000000000000000000;hpb=65b670d78bae7c2df18f3465fdad7b4f13490e33;p=unres4.git diff --git a/source/unres/data/map_data.f90 b/source/unres/data/map_data.f90 new file mode 100644 index 0000000..b706d35 --- /dev/null +++ b/source/unres/data/map_data.f90 @@ -0,0 +1,10 @@ + 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