Create a WAV file with a header:
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(WAV_file), | intent(inout) | :: | self | |||
character(len=*), | intent(in) | :: | filename | |||
integer, | intent(in) | :: | tracks | |||
real(kind=wp), | intent(in) | :: | duration |
subroutine create_WAV_file(self, filename, tracks, duration) class(WAV_file), intent(inout) :: self character(*), intent(in) :: filename integer, intent(in) :: tracks real(wp), intent(in) :: duration call self%new(tracks, duration) self%filename = filename open(newunit=self%fileunit, file=self%filename, access='stream', status='replace', action='write') call self%write_header() end subroutine create_WAV_file