26 lines
524 B
Fortran
26 lines
524 B
Fortran
module soundbrotch
|
|
|
|
implicit none
|
|
! ---------------------------------------------------------
|
|
type t_sample
|
|
integer :: left
|
|
integer :: right
|
|
end type
|
|
|
|
! ---------------------------------------------------------
|
|
|
|
contains
|
|
|
|
! ---------------------------------------------------------
|
|
|
|
subroutine soundbrotch_version ()
|
|
|
|
write(0, '(A)') "*** this is soundbrotch version alpha 666"
|
|
|
|
end subroutine
|
|
|
|
! ---------------------------------------------------------
|
|
|
|
end module
|
|
|