写一个fortran程序，实现下列功能：1.读取一个包含浮点数的文本文件，每行包含一个数值 2.使用module存储全局变量和常用的子程序 3.使用subroutine计算输入数据中的最大值、最小值、平均值

! module.f90 (模块)
module DataProcessing
   implicit none
   real, allocatable :: data(:) ! 存储输入数据的数组
   integer :: n_data ! 数据的数量
   procedure(max_min_avg), pointer :: max_min_avg_proc ! 指向计算函数的指针

contains ! 定义公共部分
   subroutine read_file(filename)
      character(len=*), intent(in) :: filename
      open(newunit=10, file=filename, status='old', action='read')
      do while (.true.)
         read(10, *, advance='no') data(n_data+1) ! 读取一行数据
         if (endfile(10)) exit ! 文件结束则退出循环
         n_data = n_data + 1
      enddo
      close(10)
   end subroutine read_file
   
   function max_min_avg() result(values)
      real :: values(3) ! 结果数组，包含最大值、最小值和平均值
      ... ! 在这里编写计算过程
      ... ! 使用data和n_data
      call max_min_avg_proc(values) ! 调用用户自定义的计算函数
   end function max_min_avg

contains ! 私有部分
   pure elemental subroutine max_min_avg_proc(output_values)
      real, intent(out) :: output_values(3) ! 函数接收结果数组
      ... ! 计算最大值、最小值和平均值
      output_values(1) = maxval(data) ! 最大值
      output_values(2) = minval(data) ! 最小值
      output_values(3) = sum(data) / real(n_data) ! 平均值
   end subroutine max_min_avg_proc
end module DataProcessing

! main_program.f90 (主程序)
program main
   use DataProcessing
   implicit none
   character(len=*) :: input_filename = 'input.txt'
   
   allocate(data(n_data))
   call read_file(input_filename)
   
   type(DataProcessing) :: dp
   dp%max_min_avg_proc => max_min_avg ! 绑定子程序到模块函数
   print '(3f15.8)', dp%max_min_avg() ! 输出最大值、最小值和平均值
   
   deallocate(data)
end program main

在这个Fortran程序中，我们首先创建了一个名为`DataProcessing`的模块，其中包含了全局变量、数据处理函数以及文件读取子程序。然后，在主程序中，我们分配内存读取文件，并通过模块调用计算最大值、最小值和平均值。

注意：`max_min_avg_proc`需要在`DataProcessing`模块中提供具体的实现，上述代码省略了这部分。在实际应用中，你需要为其编写计算过程。此外，`open`、`read`和`endfile`等操作依赖于具体的文件系统，确保它们在你的环境中可用。最后，记得运行`make`或类似命令编译并运行这个程序。