1 integer ndih_constr,idih_constr(maxdih_constr),ntheta_constr,
2 & itheta_constr(maxdih_constr)
3 integer ndih_nconstr,idih_nconstr(maxdih_constr)
4 integer idihconstr_start,idihconstr_end,ithetaconstr_start,
7 double precision phi0(maxdih_constr),drange(maxdih_constr),
8 & ftors(maxdih_constr),theta_constr0(maxdih_constr),
9 & theta_drange(maxdih_constr),for_thet_constr(maxdih_constr),
10 & vpsipred(3,maxdih_constr),sdihed(2,maxdih_constr),wdihc
11 common /torcnstr/ phi0,drange,ftors,theta_constr0,theta_drange,
12 & for_thet_constr,vpsipred,sdihed,wdihc,
13 & ndih_constr,idih_constr,
14 & ndih_nconstr,idih_nconstr,idihconstr_start,idihconstr_end,
15 & ntheta_constr,itheta_constr,ithetaconstr_start,
16 & ithetaconstr_end,raw_psipred