enddo
enddo
endif
- call chainbuild
+c call chainbuild_cart
write (iout,*) "PREMINIM ",preminim
if(iranconf.ne.0 .or. preminim) then
if (overlapsc) then
& "Time step reduced to",d_time,
& " because of too large initial acceleration."
endif
-C if(me.eq.king.or..not.out1file)then
-C write(iout,*) "Potential energy and its components"
-C call enerprint(potEcomp)
+ if(me.eq.king.or..not.out1file)then
+ write(iout,*) "Potential energy and its components"
+ call enerprint(potEcomp)
c write(iout,*) (potEcomp(i),i=0,n_ene)
-C endif
+ endif
potE=potEcomp(0)-potEcomp(20)
totE=EK+potE
itime=0