Created binaries and fixed bugs when compiling single-processor version of the multic...

[unres.git] / source / unres / src_MD-M / timing.F

diff --git a/source/unres/src_MD-M/timing.F b/source/unres/src_MD-M/timing.F
index 838d2d7..dc45cd9 100644 (file)
--- 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