Необработанное исключение по адресу 0x576CF2F6 (ucrtbased.dll) в Курсовая 4.exe: Недопустимый параметр был передан функц

#define _CRT_SECURE_NO_WARNINGS
#include <iostream>
#include <stdlib.h>
using namespace std;
const int M = 3, N = 3;
void view_file(char* name)
{
    char s[100];
    FILE* f;
    f = fopen("D://F2.txt", "rt");
    if (f == NULL) { cout << "Cannot open file to view\n"; return; }
    cout << "\nView File " << name << endl;
    while (fgets(s, 100, f)) {
        fprintf(f, "%s\n", s);
    }
    fclose(f);
}
// Vivesti dannie iz F1
void create_matrix(char* name, double matr[M][N])
{
    FILE* f;
    char s[100], *t;
    int i = 0, j;
    f = fopen("D://F1.txt", "rt");
    if (f = NULL) { cout << "Cannot open file to veiw\n"; return; }
    while (fgets(s, 100, f)) { //считывать из файла строки, пока они не закончатся (пока
                              //не достигнут конец файла)
        j = 0;
        t = strtok(s, "\t");
        while (t != NULL)
        {
            matr[i][j] = atof(t);
            t = strtok(NULL, "\t");
            j++;
        }
        i++;
    }
    fclose(f);
}
// Zapolnenie faila F3
void output_matrix(double matr[M][N], FILE* f3)
{
    int i, j = 0;
    cout << "\nView matrix:\n";
    fputs("\nView matrix:\n", f3);
    for (i = 0; j < M; j++)
    {
        for (i = 0; j < N; j++)
        {
        cout << matr[i][j] << "\t";
        fprintf(f3, "%7.1f\t", matr[i][j]);
    }
    cout << endl;
    fprintf(f3, "\n");
    }
}
//Створити вектор середньоарифметичних максімума і мінімума стовпців
void create_vector(double matr[M][N], double vekt[N])
{
    int i, j;
    double max, min;
    for (j = 0; j < N; j++)
    {
        max = matr[j][0];
        min = matr[j][0];
        for (i = 0; i < M; i++)
        {
            if (matr[i][j] > max)
                max = matr[i][j];
            if (matr[i][j] < min)
                min = matr[i][j];
 
        }
        vekt[j] = (max + min) / 2;
    }
}
//Вивести вектор на екран і у файл Ф3
void output_vector(double vekt[N], FILE* f3)
{
    int i;
    cout << "\n1.1. Viev vector:\n";
    fputs("\n1.1. View vector:\n", f3);
    for (i = 0; i < N; i++)
    {
        cout << vekt[i] << "\t";
        fprintf(f3, "%7.1f\t", vekt[i]);
    }
    cout << endl;
    fprintf(f3, "\n");
}
//Сума елементів головної діагоналі матриці
double sum_diagonal(double matr[M][N])
{
    int i;
    double sum = 0;
    for (i = 0; i < M; i++)
        sum += matr[i][i];
    return sum;
}
//Перше слово кожного рядка
void first_word(char* name2, FILE* f3)
{
    FILE* f2;
    char s[100], * t = new char[100];
    int i = 0, j;
    f2 = fopen("D://F2.txt", "rt"); //открыть файл для чтения как текстовый
    if (f2 == NULL) { cout << "Cannot open file to veiw\n"; return; }
    cout << "\nFirst words of all lines:\n";
    fputs("\n3.1. First words of all lines:\n", f3);
    while (fgets(s, 100, f2)) { //считывать из файла строки, пока они не закончатся (пока
 
    //не достигнут конец файла)
 
        t = strtok(s, ",.;-^=:!?");
        puts(t);
        fprintf(f3, "%s\n",t);
    }
    fclose(f2);
}
int main()
{
    double A[M][N], B[N];
    int i, j;
    //Оголошення імен файлів. ЦЫ ТРИ ФАЙЛИ МАЮТЬ ЗНАХОДИТИСЬ У КОРНЕВІЙ ПАПЦІ ДИСКА D
    char name1[] = "D:\\F1.txt";
    char name2[] = "D:\\F2.txt";
    char name3[] = "D:\\F3.txt";
    FILE* f3; //Оголошення файлу Ф3
    f3 = fopen("D://F3.txt", "wt"); //Відкрити файл Ф3 для запису (створення)
    if (f3 == NULL) { cout << " Cannot open file to veiw\n"; return 1; }
    //Перегляд файлу Ф1
    view_file(name1);
    //Заповнити матрицю числами із файлу Ф1
    create_matrix(name1, A);
    //Вивести матрицю на екран і у файл Ф3
    output_matrix(A, f3);
    //Створити вектор середньоарифметичних максімума і мінімума стовпців
    create_vector(A, B);
    //Вивести вектор на екран і у файл Ф3
    output_vector(B, f3);
    //Сума елементів головної діагоналі матриці
    double s = sum_diagonal(A);
    cout << "\n1.2. Sum of the main diagonal= " << s << endl;
    fprintf(f3, "\n1.2. Sum = %7.1f\n", s);
    //Перегляд файлу Ф2
    view_file(name2);
    //Перше слово кожного рядка
    first_word(name2, f3);
    //Закрити файл Ф3
    fclose(f3);
    system("pause>>void");
    return 0;
}

f==NULL