tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

pfeeee...

Browse Source
This commit is contained in:
tTh
2023-01-03 21:59:38 +01:00
parent b707b784bf
commit 3f95a964e5
9 changed files with 50 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SoundBrotching/soundbrotch.f90
View File

@@ -11,16 +11,14 @@ module soundbrotch
integer, private :: samplerate = 48000
real, private :: diapason = 440.0
contains
contains
! ---------------------------------------------------------
subroutine soundbrotch_version ()
write(0, '(1X,A)') "--- this is soundbrotch version alpha 666"
write(0, '(1X,A)') "--- this is soundbrotch version alpha 667"
write(0, *) "--- samplerate", samplerate
write(0, *) "--- diapason ", diapason
end subroutine
! ---------------------------------------------------------
! ---------------------------------------------------------
! ---------------------------------------------------------
! premier essai, le prototype peut changer !
@@ -33,8 +31,9 @@ module soundbrotch
integer :: idx, left, right
real :: coef
! XXX temporary dirty hack
if (dst .NE. 6) then
STOP ' OUPS!'
STOP ' OUPS, NOT ON STDOUT!'
endif
coef = (3.141592654 * 2.0) / real(samplerate)