bmw_state_flags.f

Go to the documentation of this file.

!*******************************************************************************
!
!  Note separating the Doxygen comment block here so detailed decription is
!  found in the Module not the file.
!
!*******************************************************************************
      MODULE bmw_state_flags
 
      IMPLICIT NONE
 
!*******************************************************************************
!  module parameters
!*******************************************************************************
      CHARACTER (len=*), PARAMETER ::                                          &
     &   clear_screen = achar(27)//"[2K"//achar(13)
      CHARACTER (len=3), DIMENSION(0:3), PARAMETER ::                          &
     &   progress = (/ ' | ',  ' / ', ' - ', ' \ '/)
 
      INTEGER, PARAMETER :: bmw_state_flags_off = 0
 
      INTEGER, PARAMETER :: bmw_state_flags_force = 0
      INTEGER, PARAMETER :: bmw_state_flags_ju = 1
      INTEGER, PARAMETER :: bmw_state_flags_jv = 2
      INTEGER, PARAMETER :: bmw_state_flags_siesta = 3
      INTEGER, PARAMETER :: bmw_state_flags_mgrid = 4
 
      END MODULE