+#ifdef TIMING_ENE
+ if (RESPA) then
+ write (*,*) "Processor",fg_rank,myrank," evdw_long",
+ & time_evdw_long
+ write (*,*) "Processor",fg_rank,myrank," evdw_short",
+ & time_evdw_short
+ write (*,*) "Processor",fg_rank,myrank," eelec_long",
+ & time_eelec_long
+ write (*,*) "Processor",fg_rank,myrank," eelec_short",
+ & time_eelec_short
+ write (*,*) "Processor",fg_rank,myrank," escp_long",
+ & time_escp_long
+ write (*,*) "Processor",fg_rank,myrank," escp_short",
+ & time_escp_short
+ else
+ write (*,*) "Processor",fg_rank,myrank," evdw",time_evdw
+ write (*,*) "Processor",fg_rank,myrank," eelec",time_eelec
+ write (*,*) "Processor",fg_rank,myrank," escp",time_escp
+ write (*,*) "Processor",fg_rank,myrank," escpsetup",
+ & time_escpsetup
+ write (*,*) "Processor",fg_rank,myrank," escpcalc",
+ & time_escpcalc
+ endif
+#endif