Сборка WAV-файла

void SEISM_SIGNAL::SaveToWav(CArray<double,double> *data_array)
{
    CArray <int,int>WAVarray;
    WAVEFORMATEX m_pcm;
    double max=0;
   
    //Init PCM
    m_pcm.nChannels=2;
    m_pcm.nSamplesPerSec=freq;
    m_pcm.wBitsPerSample=16;
    m_pcm.wFormatTag=WAVE_FORMAT_PCM;
    m_pcm.nBlockAlign = m_pcm.nChannels * m_pcm.wBitsPerSample/8;
    m_pcm.nAvgBytesPerSec = m_pcm.nSamplesPerSec * m_pcm.nChannels * m_pcm.wBitsPerSample/8;

    //Приводим сигнал к формату 16бит
    for (int i=0; i<data_array->GetSize();i++)
    {
        double temp=data_array->GetAt(i);
        if (temp > max) max=temp;
    }
   
    double coeff=16383/max; //не нормализуем по максимуму, чтобы исключить переполнение

    for (i=0; i<data_array->GetSize();i++)
    {
        double temp=data_array->GetAt(i)*coeff;
        int val=(int)temp;
        WAVarray.Add(temp);
    }

    CFile f("1.wav", CFile::modeCreate | CFile::modeWrite);
       
    f.Write("RIFF", 4) ;
    DWORD dwFileSize = WAVarray.GetSize() * m_pcm.nBlockAlign + 36 ;
    f.Write(&dwFileSize, sizeof(dwFileSize)) ;
    f.Write("WAVEfmt ", 8) ;
    DWORD dwFmtSize = 16;
    f.Write(&dwFmtSize, sizeof(dwFmtSize)) ;
    f.Write(&m_pcm.wFormatTag, sizeof(m_pcm.wFormatTag)) ;
    f.Write(&m_pcm.nChannels, sizeof(m_pcm.nChannels)) ;
    f.Write(&m_pcm.nSamplesPerSec, sizeof(m_pcm.nSamplesPerSec)) ;
    f.Write(&m_pcm.nAvgBytesPerSec, sizeof(m_pcm.nAvgBytesPerSec)) ;
    f.Write(&m_pcm.nBlockAlign, sizeof(m_pcm.nBlockAlign)) ;
    f.Write(&m_pcm.wBitsPerSample, sizeof(m_pcm.wBitsPerSample)) ;
    f.Write("data", 4) ;
    DWORD dwNum = WAVarray.GetSize() * m_pcm.nBlockAlign;
    f.Write(&dwNum, sizeof(dwNum)) ;
    f.Write(WAVarray.GetData(),dwNum);

    f.Close();
}

m_pcm.nChannels=1;