fatal error LNK1120: 6 unresolved externals

liuzf406

刚学fortran, 请大学帮我看看问题出在哪里?
下面是代码:

program grdiso
implicit none
real vec(103,12)
Integer nlev,flag,i,j
      Real lon(103),lat(103),tim
Character*9 stid(103)
Real alt,d18o,dd,dex,precip,temp
      tim=0.0
      nlev=1
      flag=1
c     读入isotope数据
      open(1,file='C:\zhongfang\CNiso\cnpmiso\iso.txt',status='old')
read(1,*) ((vec(i,j),i=1,103),j=1,12)      
close(1)   
      
c     读103个站经纬度  
      open(2,file='C:\zhongfang\CNiso\cnpmiso\station.txt')
      do i=1,103
      read(2,*) stid(i),lat(i),lon(i)
      enddo
close(2)
      
c     按排序向二进制文件iso.grd 写入记录
      open(3,file='C:\zhongfang\CNiso\cnpmiso\iso.grd',form='binary')     
      do i=1,12
    nlev=1
    tim=0.0
    flag=1
    do j=1,103
      write(3)stid(j),lat(j),lon(j),tim,nlev,flag,vec(j,i)
           enddo
      nlev=0
write(3) alt(i,j),d18o(i,j),dd(i,j),dex(i,j),precip(i,j),temp(i,j)                                                
         enddo
close(3)                     
end

编译时没错, 但在build时出现以下错误:
Linking...
grdiso.obj : error LNK2001: unresolved external symbol _ALT@8
grdiso.obj : error LNK2001: unresolved external symbol _D18O@8
grdiso.obj : error LNK2001: unresolved external symbol _DD@8
grdiso.obj : error LNK2001: unresolved external symbol _DEX@8
grdiso.obj : error LNK2001: unresolved external symbol _PRECIP@8
grdiso.obj : error LNK2001: unresolved external symbol _TEMP@8
Debug/grdiso.exe : fatal error LNK1120: 6 unresolved externals
Error executing link.exe.
grdiso.exe - 7 error(s), 0 warning(s)

请教大侠如何解决啊?
谢谢了

言深深

自己看一下，这7个错误全部都是write数组那儿，但看你将这几个全都定义成real（实型数），write成数组肯定有问题！

再者，你前面一次都没有用过这些数组，换句话说这些数组根本就是不存在的！！！！为什么突然的write一下？怎么会write这些？

liuzf406

言深深 发表于 2012-9-23 09:37

                               
登录/注册后可看大图

自己看一下，这7个错误全部都是write数组那儿，但看你将这几个全都定义成real（实型数），write成数组肯定有 ...

谢谢您深深. 改了一下后面的部分,可以了
!     按排序向二进制文件iso.grd 写入记录

open(3,file='C:\zhongfang\CNiso\cnpmiso\iso.grd',form='binary')     
   do i=1,12
   nlev=1
   tim=0.0
   flag=1
         do j=1,103
           write(3)stid(j),lat(j),lon(j),tim,nlev,flag,vec(j,i),elv(j),d18o(j),dd(j),dex(j),precip(j),temp(j)
     enddo
         nlev=0
         write(3)stid,lat,lon,nlev,flag,tim                                               
    enddo
close(3)                        
end

言深深

liuzf406 发表于 2012-9-23 10:20

                               
登录/注册后可看大图

谢谢您深深. 改了一下后面的部分,可以了
!     按排序向二进制文件iso.grd 写入记录

好 的