enddo
enddo
enddo
+ write (iout,*) "indstart(me1),indend(me1)"
+ &,indstart(me1),indend(me1)
do i=indstart(me1),indend(me1)
#else
do iparm=1,nParmSet
enddo
do i=1,ntot
#endif
+
read(ientout,rec=i,err=101)
& ((csingle(l,k),l=1,3),k=1,nres),
& ((csingle(l,k+nres),l=1,3),k=nnt,nct),
& wcorr,wcorr5,wcorr6,wturn4,wturn3,wturn6,wel_loc,
& wtor_d,wsccor,wbond
#endif
+C write (iout,*) "tuz przed energia"
call etotal(energia(0),fT)
+C write (iout,*) "tuz za energia"
+
#ifdef DEBUG
write (iout,*) "Conformation",i
write (iout,'(8f10.5)') ((c(l,k),l=1,3),k=1,nres)
endif
endif
endif
+C write (iout,*) "Czy tu dochodze"
potE(iii+1,iparm)=energia(0)
do k=1,21
enetb(k,iii+1,iparm)=energia(k)