Fortraneries/SoundBrotching/panoramix.f90

37 lines
796 B
Fortran

program panoramix
use soundbrotch
! ------------------------------------------------------
implicit none
integer :: left, right
integer :: errcode
integer :: nblus
real :: value, phi, ka
write(0, *) "*** Panoramix ***"
call soundbrotch_version()
nblus = 0
do
read (*, *, iostat=errcode) left, right
if (errcode .NE. 0) then
! write(0, *) 'EOF ? ', errcode
exit
endif
! *** NON WORKING CODE ***
phi = real(nblus) / 44100.0
ka = sin(phi)
value = (real(left)+real(right)) / 2.05
left = int(value * ka)
right = int(value * (1.0-ka))
print *, left, right
nblus = nblus + 1
enddo
end program