+++ /dev/null
-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)