!##############################################################################
!# ****************************************************************************
!# <name> x </name>
!# ****************************************************************************
!#
!# <purpose>
!# This module contains
!# </purpose>
!##############################################################################

module x

  use fsystem
  
  implicit none

!<types>
  
  !<typeblock>
  
  type x
    !...
  end type
  
  !</typeblock>

!</types>
  
  ! ***************************************************************************
  
!<constants>

  !<constantblock description="x">

  ! logical value 'true'
  integer, parameter :: YES = 0

  !</constantblock>
  
!</constants>
 
  ! ***************************************************************************


end module
