1 integer ndih_constr,idih_constr(maxdih_constr)
2 integer ndih_nconstr,idih_nconstr(maxdih_constr)
3 integer idihconstr_start,idihconstr_end
4 double precision phi0(maxdih_constr),drange(maxdih_constr),ftors
5 common /torcnstr/ phi0,drange,ftors,ndih_constr,idih_constr,
6 & ndih_nconstr,idih_nconstr,idihconstr_start,idihconstr_end