enddo
endif
c The side-chain vector derivatives
- if (SELFGUIDE.gt.0) then
- do j=1,3
+C if (SELFGUIDE.gt.0) then
+C do j=1,3
C gcart(j,afmbeg)=gcart(j,afmbeg)+gcart(j,afmend)
- gcart(j,afmbeg)=0.0d0
- gcart(j,afmend)=0.0d0
- enddo
- endif
+C gcart(j,afmbeg)=0.0d0
+C gcart(j,afmend)=0.0d0
+C enddo
+C endif
return
end