ilip_start,ilip_end,itube_start,itube_end
integer :: ibond_nucl_start,ibond_nucl_end,iphi_nucl_start,&
iphi_nucl_end,iphid_nucl_start,iphid_nucl_end,&
- ibondp_nucl_start,ibondp_nucl_end,ithet_nucl_start,ithet_nucl_end
+ ibondp_nucl_start,ibondp_nucl_end,ithet_nucl_start,ithet_nucl_end,&
+ loc_start_nucl,loc_end_nucl
integer,dimension(:),allocatable :: ibond_displ,ibond_count,&
ithet_displ,ithet_count,iphi_displ,iphi_count,iphi1_displ,&
iphi1_count,ivec_displ,ivec_count,iset_displ,iset_count,&
! Parameters of the SC rotamers (local) term
! common/scrot/
real(kind=8),dimension(:,:),allocatable :: sc_parmin !(maxsccoef,ntyp)
+ real(kind=8),dimension(:,:),allocatable :: sc_parmin_nucl !(maxsccoef,ntyp)
+
!-----------------------------------------------------------------------------
! common.torcnstr
! common /torcnstr/