integer,dimension(:),allocatable :: idih_constr,idih_nconstr,itheta_constr !(maxdih_constr)
integer :: idihconstr_start,idihconstr_end, &
ithetaconstr_start,ithetaconstr_end
integer,dimension(:),allocatable :: idih_constr,idih_nconstr,itheta_constr !(maxdih_constr)
integer :: idihconstr_start,idihconstr_end, &
ithetaconstr_start,ithetaconstr_end