19 lines
303 B
Fortran
19 lines
303 B
Fortran
|
module soundbrotch
|
||
|
|
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
contains
|
||
|
|
|
||
|
|
! ---------------------------------------------------------
|
||
|
|
|
||
|
|
subroutine soundbrotch_version ()
|
||
|
|
|
||
|
|
write(0, '(A)') "*** this is soundbrotch version alpha"
|
||
|
|
|
||
|
|
end subroutine
|
||
|
|
|
||
|
|
! ---------------------------------------------------------
|
||
|
|
|
||
|
|
end module
|
||
|
|
|