Merge branch 'bartek' of mmka.chem.univ.gda.pl:unres into bartek
[unres.git] / source / unres / src_MD / COMMON.LOCMOVE
1 c     Variables (set in init routine) never modified by local_move
2       integer init_called
3       logical locmove_output
4       double precision min_theta, max_theta
5       double precision dmin2,dmax2
6       double precision flag,small,small2
7
8       common /loc_const/ init_called,locmove_output,min_theta,
9      +     max_theta,dmin2,dmax2,flag,small,small2
10
11 c     Workspace for local_move
12       integer a_n,b_n,res_n
13       double precision a_ang,b_ang,res_ang
14       logical a_tab,b_tab,res_tab
15
16       common /loc_work/ res_ang(0:11),a_ang(0:7),b_ang(0:3),
17      +     res_n,res_tab(0:2,0:2,0:11),
18      +     a_n,a_tab(0:2,0:7),
19      +     b_n,b_tab(0:2,0:3)