make cp src-HCD-5D

[unres.git] / source / unres / src-HCD-5D / timing.F

diff --git a/source/unres/src-HCD-5D/timing.F b/source/unres/src-HCD-5D/timing.F
index 0581ead..7bd51b8 100644 (file)
--- a/source/unres/src-HCD-5D/timing.F
+++ b/source/unres/src-HCD-5D/timing.F
@@ -66,7 +66,7 @@ C...               node's task was accomplished (parallel only);
 C...          -1 - STOP signal was received from another node because of error;
 C...          -2 - STOP signal was received from another node, because 
 C...               the node's time was up.
-      implicit real*8 (a-h,o-z)
+      implicit none
       include 'DIMENSIONS'
       integer nf
       logical ovrtim
@@ -139,10 +139,11 @@ c Check for FOUND_NAN flag
       end
 C--------------------------------------------------------------------------
       logical function ovrtim() 
+      implicit none
       include 'DIMENSIONS'
       include 'COMMON.IOUNITS'
       include 'COMMON.TIME1'
-      real*8 tcpu
+      real*8 tcpu,curtim
 #ifdef MPI
       include "mpif.h"
       curtim = MPI_Wtime()-walltime
@@ -164,7 +165,9 @@ c      write (iout,*) "curtim",curtim," timlim",timlim," safety",safety
       end
 **************************************************************************      
       double precision function tcpu()
+      implicit none
       include 'COMMON.TIME1'
+      double precision seconds
 #ifdef ES9000 
 ****************************
 C Next definition for EAGLE (ibm-es9000)
@@ -253,12 +256,14 @@ c next definitions for windows NT Digital fortran
       end  
 C---------------------------------------------------------------------------
       subroutine dajczas(rntime,hrtime,mintime,sectime)
+      implicit none
       include 'COMMON.IOUNITS'
       real*8 rntime,hrtime,mintime,sectime 
+      integer ihr,imn,isc
       hrtime=rntime/3600.0D0 
-      hrtime=aint(hrtime)
-      mintime=aint((rntime-3600.0D0*hrtime)/60.0D0)
-      sectime=aint((rntime-3600.0D0*hrtime-60.0D0*mintime)+0.5D0)
+      hrtime=dint(hrtime)
+      mintime=dint((rntime-3600.0D0*hrtime)/60.0D0)
+      sectime=dint((rntime-3600.0D0*hrtime-60.0D0*mintime)+0.5D0)
       if (sectime.eq.60.0D0) then
         sectime=0.0D0
         mintime=mintime+1.0D0
@@ -273,10 +278,11 @@ C---------------------------------------------------------------------------
       end
 C---------------------------------------------------------------------------
       subroutine print_detailed_timing
-      implicit real*8 (a-h,o-z)
+      implicit none
       include 'DIMENSIONS'
 #ifdef MPI
       include 'mpif.h'
+      double precision time1
 #endif
       include 'COMMON.IOUNITS'
       include 'COMMON.TIME1'
@@ -310,7 +316,7 @@ C---------------------------------------------------------------------------
      &      " BCASTW",time_bcastw," ALLREDUCE",time_allreduce,
      &      " TOTAL",
      &      time_bcast+time_reduce+time_gather+time_scatter+
-     &      time_sendrecv+time_barrier+time_bcastc
+     &      time_sendrecv+time_barrier_g+time_barrier_e+time_bcastc
          write (*,*) "Processor",fg_rank,myrank," enecalc",time_enecalc
          write (*,*) "Processor",fg_rank,myrank," sumene",time_sumene
          write (*,*) "Processor",fg_rank,myrank," intfromcart",