prg_progress_mod.F90

Go to the documentation of this file.

 
!
!
 
module prg_progress_mod
 
  use bml
  use prg_parallel_mod
  use prg_timer_mod
 
  implicit none
 
  private  !Everything is private by default
 
  integer, parameter :: dp = kind(1.0d0)
 
  public :: prg_version
  public :: prg_progress_init
  public :: prg_progress_shutdown
 
contains
 
  subroutine prg_version()
    character (len=:), allocatable :: astring
 
#ifdef PROJECT_VERSION
    astring = project_version
#else
    astring = "Unknown"
#endif
 
    write(6,*) 'QMD-PROGRESS and BML are used!'
    write(6,*) 'QMD-PROGRESS VERSION: ', astring
    call bml_print_version()
    write(6,*)
 
  end subroutine prg_version
 
  subroutine prg_progress_init()
 
    ! Initialize MPI
    call prg_initparallel()
 
    ! Initialize timers
    call timer_prg_init()
    call prg_timer_start(loop_timer)
 
  end subroutine prg_progress_init
 
  subroutine prg_progress_shutdown()
 
    ! Timer report and finalize
    call prg_timer_stop(loop_timer)
    call prg_timer_results()
    call prg_timer_shutdown()
 
    ! Finalize MPI
    call prg_shutdownparallel()
 
  end subroutine prg_progress_shutdown
 
end module prg_progress_mod