Работа с текстовым файлом в Си

[Eovin]

Задание такое: Текстовый файл содержит вещественные числа. Удалить их файла все числа, меньшие среднего значения всех чисел в файле.

#include <stdio.h>  //Библиотека функций ввода и вывода
int main(int argc, char *argv[])
{
     //Проверка: передан ли параметр командной строки
     if(argc < 2){  //Если нет, то вывод сообщения и выход
       puts("Имя файла не указано!");
       return 0;
     }
     FILE *f = NULL;  //Объявление файловой переменной
     //Открытие файла для чтения и записи с проверкой
     if((f = fopen("1.txt","r")) == NULL){
       //Если файл открыть не удалось, то
       puts("Невозможно открыть файл!");//вывод сообщения
       return 0;                        //и выход
     }
     double val;  //Буфер для чтения данных
     //Чтение первого значения из файла
     if(fread(&val,sizeof(double),1,f) != 1){
       //Если файл пустой, то вывод сообщения и выход
       puts("Пустой файл!");
       return 0;
     }
      FILE *f1 = tmpfile(void); // о_О ?!
      if(tmpfile == NULL){
       //Если файл пустой, то вывод сообщения и выход
       puts("Ошибка создания!");
       return 0;
     } 
  
     //Объявление и инициализация переменных для хранения
     double S = 0.0, h=0.0;
     int i; //i -- счетчик количества одинаковых элементов  
     while(!feof(f)){  //Пока не конец файла
       //Чтение значения из файла
       fread(&val,sizeof(double),1,f);
    
       //считаем сумму и увеличиваем счетчик
          S=S+val; 
          i++; }
     h=S/i;  // среднее значение
     FILE *fopen(f1,"r+");    //Открытие файла для записи
     if(!f1) return 1; //Если файл открыть не удалось, то выход
     while(!feof(f)){  //Пока не конец файла
       //Чтение значения из файла
       fread(&val,sizeof(double),1,f);
          // записываем только значения > h       
      if(val<h){fprintf(f,"%lf\n",val);} 
        i++; }    // после записи увеличение текущей позиции
      fclose(f);       
     FILE *fopen(f,"w");    //Открытие файла для записи
     if(!f) return 1; //Если файл открыть не удалось, то выход
     while(!feof(f1)){  //Пока не конец файла
       //Чтение значения из файла
       fread(&val,sizeof(double),1,f1);         
      fprintf(f,"%lf\n",val);} // перезаписываем начальный файл
       i++;  
     fclose(f);  //Закрытие файла
     return 0;
}

В общем, наваяла что-то, а оно не работает. Делала по примеру, так что не очень разобралась, ошибку найти не могу. Требуется помощь
З.Ы. Делаю в Pellec C