在编写fortran程序的时候总是在链接的时候粗错

我是彤-Tina

integer mo1(12),mo2(12)
real    t(52+2+2,12,31),id,lat,lon,elv,year,mon,date,aa,tmon(56,12),amon(30,12)
real::avet(30,12)=0,aveyt(12)=0
data mo1/31,29,31,30,31,30,31,31,30,31,30,31/
data mo2/31,28,31,30,31,30,31,31,30,31,30,31/

t=1.e+36
tmon=1.e+36
!------------1971-2000 ------------------------------------------
open(11,file='D:\fortran\SURF_CLI_CHN_MUL_DAY-50353.TXT')
do i=1971,2000
ii=i-1970
do j=1,12
print*,i,j
if(MOD(i,4).eq.0)then
  do k=1,mo1(j)
  read(11,*)id,lat,lon,elv,year,mon,date,aa,t(ii,j,k)
  avet(i,j)=avet(i,j)+t(ii,j,k)/mo1(j)  ! 30年每个月的平均值
                enddo
else
  do k=1,mo2(j)
  read(11,*)id,lat,lon,elv,year,mon,date,aa,t(ii,j,k)   
                avet(i,j)=avet(i,j)+t(ii,j,k)/mo2(j)  !30年每个月的平均值
  enddo
endif
enddo
enddo
do j=1,12
   do i=1971,2000
    aveyt(i)=aveyt(i)+ave(i,j)/30   !每个月30年的平均值
enddo
enddo
do i=1971,2000
    do j=1,12
   amon(i,j)=avet(i,j)-aveyt(i)  !距平序列
enddo
enddo
write(*,'("avet=")')
write(*,'(<12>F10.4)')((avet(i,j),j=1,12),i=1971,2000)
write(*,'("aveyt=")')
write(*,'(<12>F10.4)')((avet(i,j),j=1,12),i=1971,2000)
write(*,'("amon=")')
write(*,'(<12>F10.4)')((amon(i,j),j=1,12),i=1971,2000)
close(11)
end

程序是这样的，编译的时候提示没有错误，在链接的时候有两个错误
error LNK2001: unresolved external symbol _AVE@8
Debug/weijidan.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.

排山倒海

!------------1971-2000 ------------------------------------------这部分中的avet(i,j)数组，其中第一维大小是30，并且取初值为0，所以程序应该默认第一维编号是从1-30的，而你的i是从1971-2000，所以这里的i用ii换下试试？

言深深

aveyt(i)=aveyt(i)+ave(i,j)/30   !每个月30年的平均值
这一句，你看看你的ave数组是哪里来的？没有定义！因此错误类型是“unresolved external symbol ”···
此外还有无错误尚未细看