1 | include(dom.inc)
   2 | 
   3 |       SUBROUTINE pmm_end(ierr)
   4 | 
   5 |         USE mod_pmm
   6 | 
   7 |         IMPLICIT NONE
   8 | 
   9 |         include 'pmm_constants.h'
  10 | 
  11 | !       INOUT
  12 |         DOM_INT :: ierr
  13 | 
  14 |         IF (pmm_rank.eq.PMM_HOST) THEN
  15 | 
  16 |           et_time = MPI_WTIME()
  17 | 
  18 |           WRITE(*,*) " Total run time: ", et_time - st_time
  19 |           WRITE(*,*) " Computing time: ", c_time
  20 | 
  21 |         ENDIF
  22 | 
  23 |         CALL MPI_FINALIZE(ierr)
  24 | 
  25 |       END SUBROUTINE pmm_end