enddo
endif
c Setting dE/ddnres-2
- write(iout,*) "ATUCHUJ?"
+C write(iout,*) "ATUCHUJ?"
if(nres.gt.5) then
do j=1,3
gcart(j,nres-2)=gcart(j,nres-2)+gloc(nres-4,icg)*
enddo
endif
enddo
- write(iout,*) "TU DOCHODZE"
+C write(iout,*) "TU DOCHODZE"
c----------------------------------------------------------------------
C INTERTYP=1 SC...Ca...Ca...Ca