bad or not bad ?

2022-05-05 06:58:45 +02:00
parent fca15a210a
commit 0f92d09d5e
6 changed files with 71 additions and 11 deletions
--- a/SoundBrotching/panoramix.f90
+++ b/SoundBrotching/panoramix.f90
@@ -9,18 +9,19 @@ program panoramix
  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
+      ! write(0, *) 'EOF ? ', errcode
      exit 
    endif

    !  *** NON WORKING CODE ***
-    phi   = real(nblus) / 20000.0
+    phi   = real(nblus) / 60000.0
    ka    = sin(phi)
    value = (real(left)+real(right)) / 2.05
    left  = int(value*ka)