Line data    Source code

       1             : !> \file    mo_edk_print_message.f90
       2             : !> \brief   \copybrief mo_edk_print_message
       3             : !> \details \copydetails mo_edk_print_message
       4             : 
       5             : !> \brief   Module containing messages for the EDK program.
       6             : !> \copyright Copyright 2005-\today, the CHS Developers, Sabine Attinger: All rights reserved.
       7             : !! EDK is released under the LGPLv3+ license \license_note
       8             : module mo_edk_print_message
       9             : 
      10             :   implicit none
      11             : 
      12             :   private
      13             : 
      14             :   public :: print_start_message
      15             :   public :: print_end_message
      16             : 
      17             : contains
      18             : 
      19             :   !> \brief   Start up messages for the EDK program.
      20           2 :   subroutine print_start_message()
      21             : 
      22             :     use mo_edk_info, only: version
      23             :     use mo_message, only: message
      24             : 
      25             :     implicit none
      26             : 
      27           2 :     call message('')
      28           2 :     call message('==============================================')
      29           2 :     call message('!!                                          !!')
      30           2 :     call message('!!          THE KRIGING PROGRAM             !!')
      31           2 :     call message('!!              VERSION '// trim(version) //'          !!')
      32           2 :     call message('!!                                          !!')
      33           2 :     call message('==============================================')
      34           2 :     call message('')
      35             : 
      36           2 :   end subroutine print_start_message
      37             : 
      38             :   !> \brief   Ending messages for the EDK program.
      39           2 :   subroutine print_end_message
      40             : 
      41           2 :     use mo_message, only: message
      42             : 
      43             :     implicit none
      44             : 
      45           2 :     call message('')
      46           2 :     call message('==============================================')
      47           2 :     call message('!!                                          !!')
      48           2 :     call message('!!          THE KRIGING PROGRAM             !!')
      49           2 :     call message('!!              IS FINISHED!                !!')
      50           2 :     call message('!!                                          !!')
      51           2 :     call message('==============================================')
      52           2 :     call message('')
      53             : 
      54           2 :   end subroutine print_end_message
      55             : 
      56             : end module mo_edk_print_message