-c if (split_ene) then
-c print *,"Processor",myrank," after chainbuild"
-c icall=1
-c call etotal_long(energy_long(0))
-c write (iout,*) "Printing long range energy"
-c call enerprint(energy_long(0))
-c call etotal_short(energy_short(0))
-c write (iout,*) "Printing short range energy"
-c call enerprint(energy_short(0))
-c do i=0,n_ene
-c energy(i)=energy_long(i)+energy_short(i)
-c write (iout,*) i,energy_long(i),energy_short(i),energy(i)
-c enddo
-c write (iout,*) "Printing long+short range energy"
-c call enerprint(energy(0))
-c endif