问题1
子程序 f1 中，你要读2遍文件，需要读完一遍，返回文件头部。
如下：
rewind(20) !//返回文件头部
  do i=1,days
      read(20,"(5xi2,/,5xi3,6xi3,6xi3,6xi3)")num,c(i)%d4,c(i)%a3,c(i)%b3,c(i)%c3

问题2
主程序中 type(day3),allocatable:: c(:) 尚未分配。
所以第二遍读取到 c 里面就出错了。