module soundbrotch

  implicit none

  contains

  ! ---------------------------------------------------------

  subroutine soundbrotch_version ()

    write(0, '(A)') "*** this is soundbrotch version alpha"

  end subroutine

  ! ---------------------------------------------------------

end module