（积温计算）关于按行进行数据操作

奇迹一哥

我在做一个计算积温的小程序（稻季积温 ，水稻生长期内日均温累加），根据彭国伦计算学生成绩的例子做的，已经实现一整年积温的计算 ，现在我想根据第一列的天数 1.实现输入起止日期即起止行数，灵活的计算两个指定行之间的数据而不是简单的一整列的计算，不知道该怎末给指定行赋值 2.就是temp我现在是手动赋值 ，能不能根据文件行数自动赋值给它，我试着把获取文件行数的代码放进去，一放进去就提示mod不能用，大过年的打扰大家了
module typedef
    type tdd
        integer :: stat=0
        real ::  tmax , tmin ,  total , average
    end type
end module

PROGRAM MAIN
    USE typedef
    implicit none
    real::dy,rain
    INTEGER,PARAMETER::temp=365
    type(tdd)::t(temp)! 保存气温值
    type(tdd):: total !日均温累加
    integer i

    open(7,file="GDNH94")
    read(7,*)

    do i=1,temp
        read(7,*)dy , t(i)%tmax , t(i)%tmin , rain

        t(i)%average=(t(i)%tmax+t(i)%tmin)/2    !日均温
        total%average=total%average+t(i)%average    !日均温累加=积温
    enddo
    print *,total%average    !
    STOP
end PROGRAM

topmad

感觉 你这个用不到结构体这么复杂吧

你可以把文件列出来 帮你看看

奇迹一哥

topmad 发表于 2017-1-31 21:16
感觉 你这个用不到结构体这么复杂吧

你可以把文件列出来 帮你看看

已经做出来了 谢谢

凝云

您好，我想请问一下，您积温计算的程序可以分享一下么？