X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_Eshel%2FCOMMON.LOCMOVE;fp=source%2Funres%2Fsrc_Eshel%2FCOMMON.LOCMOVE;h=211516dc16c6998375cf6bff980ceec9e3170aca;hb=7308760ff07636ef6b1ee28d8c3a67a23c14b34b;hp=0000000000000000000000000000000000000000;hpb=9a54ab407f6d0d9d564d52763b3e2136450b9ffc;p=unres.git

diff --git a/source/unres/src_Eshel/COMMON.LOCMOVE b/source/unres/src_Eshel/COMMON.LOCMOVE
new file mode 100644
index 0000000..211516d
--- /dev/null
+++ b/source/unres/src_Eshel/COMMON.LOCMOVE
@@ -0,0 +1,19 @@
+c     Variables (set in init routine) never modified by local_move
+      integer init_called
+      logical locmove_output
+      double precision min_theta, max_theta
+      double precision dmin2,dmax2
+      double precision flag,small,small2
+
+      common /loc_const/ init_called,locmove_output,min_theta,
+     +     max_theta,dmin2,dmax2,flag,small,small2
+
+c     Workspace for local_move
+      integer a_n,b_n,res_n
+      double precision a_ang,b_ang,res_ang
+      logical a_tab,b_tab,res_tab
+
+      common /loc_work/ res_ang(0:11),a_ang(0:7),b_ang(0:3),
+     +     res_n,res_tab(0:2,0:2,0:11),
+     +     a_n,a_tab(0:2,0:7),
+     +     b_n,b_tab(0:2,0:3)