write (*,*) "Processor",fg_rank,myrank," enecalc",time_enecalc
write (*,*) "Processor",fg_rank,myrank," sumene",time_sumene
write (*,*) "Processor",fg_rank,myrank," intfromcart",
write (*,*) "Processor",fg_rank,myrank," enecalc",time_enecalc
write (*,*) "Processor",fg_rank,myrank," sumene",time_sumene
write (*,*) "Processor",fg_rank,myrank," intfromcart",