X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Ftiming.F;fp=source%2Funres%2Fsrc_MD-M%2Ftiming.F;h=dc45cd9c0f6bb8f7d81d8716baed741c45d9740c;hp=838d2d7f42a5e5be34661904f4e12d02a67691b6;hb=af72f8e89a5d33f0d86ba898d6c5bbbda4b25b84;hpb=f9e536df1fd1627429123fe8990edfcdc2cc1a9a

diff --git a/source/unres/src_MD-M/timing.F b/source/unres/src_MD-M/timing.F
index 838d2d7..dc45cd9 100644
--- a/source/unres/src_MD-M/timing.F
+++ b/source/unres/src_MD-M/timing.F
@@ -280,6 +280,7 @@ C---------------------------------------------------------------------------
       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"
@@ -333,5 +334,19 @@ C---------------------------------------------------------------------------
            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