include 'COMMON.IOUNITS'
include 'COMMON.TIME1'
include 'COMMON.SETUP'
+#ifdef MPI
time1=MPI_WTIME()
write (iout,'(80(1h=)/a/(80(1h=)))')
& "Details of FG communication time"
write (*,*) "Processor",fg_rank,myrank," cartgrad",
& time_cartgrad
endif
+#else
+ write (*,*) "enecalc",time_enecalc
+ write (*,*) "sumene",time_sumene
+ write (*,*) "intfromcart",time_intfcart
+ write (*,*) "vecandderiv",time_vec
+ write (*,*) "setmatrices",time_mat
+ write (*,*) "ginvmult",time_ginvmult
+ write (*,*) "fricmatmult",time_fricmatmult
+ write (*,*) "inttocart",time_inttocart
+ write (*,*) "sumgradient",time_sumgradient
+ write (*,*) "intcartderiv",time_intcartderiv
+ write (*,*) "lagrangian",time_lagrangian
+ write (*,*) "cartgrad",time_cartgrad
+#endif
return
end