vmagnin / forsynth Goto Github PK

type file_t
  character(len=:), allocatable :: filename
  integer                       :: fileunit
contains
  procedure :: create_WAV_file   
end type file_t

subroutine create_WAV_file(self, filename)   
   class(file_t), intent(inout)  :: self
   character(*), intent(in)      :: filename

   self%fileunit   = u
   self%filename   = filename

   open(unit=self%fileunit, file=self%filename, access='stream', status='replace', action='write')
   call write_header()
 end subroutine create_WAV_file