integer,dimension(:),allocatable :: idih_constr,idih_nconstr,itheta_constr !(maxdih_constr)
integer :: idihconstr_start,idihconstr_end, &
ithetaconstr_start,ithetaconstr_end
- real(kind=8) :: ftors
+! real(kind=8) :: ftors
real(kind=8),dimension(:),allocatable :: drange,theta_constr0,theta_drange !(maxdih_constr)
- real(kind=8),dimension(:),allocatable :: phi0 !(maxdih_constr)
+ real(kind=8),dimension(:),allocatable :: phi0,ftors !(maxdih_constr)
real(kind=8),dimension(:),allocatable :: for_thet_constr !(maxdih_constr)
!-----------------------------------------------------------------------------