time_Bcastw=time_Bcastw+MPI_Wtime()-time00
! call chainbuild_cart
endif
- print *,'Processor',myrank,' calling etotal ipot=',ipot
- print *,'Processor',myrank,' nnt=',nnt,' nct=',nct
+! print *,'Processor',myrank,' calling etotal ipot=',ipot
+! print *,'Processor',myrank,' nnt=',nnt,' nct=',nct
#else
! if (modecalc.eq.12.or.modecalc.eq.14) then
! call int_from_cart1(.false.)