Fortran code snippets

99

I have added the following loop in your src/tests/test_wave.f90 file to obtain an output file that can be imported in my ForSynth project:

open(newunit=u, file="sound.txt", status="replace")
do m = 1, Nt, Nskip
    write(u, *) yt(m)
end do
close(u)

The ForSynth sonify command can then be used directly to generate a WAV:

$ sonify -i sound.txt
 Nb of tracks, excluding track 0:           1
 Used RAM:                 1765768 bytes
 File size ~               1765768 bytes
 You can now play the file sonification.wav
1 Like