include 'COMMON.MD'
include 'COMMON.IOUNITS'
include 'COMMON.SCCOR'
+ include 'COMMON.CONTROL'
c calculating dE/ddc1
C print *,"wchodze22",ialph(2,1)
if (nres.lt.3) go to 18
enddo
endif
c The side-chain vector derivatives
+C if (SELFGUIDE.gt.0) then
+C do j=1,3
+C gcart(j,afmbeg)=gcart(j,afmbeg)+gcart(j,afmend)
+C gcart(j,afmbeg)=0.0d0
+C gcart(j,afmend)=0.0d0
+C enddo
+C endif
return
end