主题:快来帮帮忙啊,输出的文件被覆盖了,怎么办???
program main
integer x(1951:2005,12)
real lat(118),lon(118),hig(118)
character st(118)*9,y(55)*4
open(1,file='F:\data\zhongjian\station.txt')
open(2,file='F:\data\zhongjian\lonlat.txt')
open(3,file='F:\data\zhongjian\nianfen.txt')
do i=1,118
read(1,'(a9)') st(i)
enddo
close(1)
do i=1,118
read(2,*)nx,lat(i),lon(i),hig(i),ny,nz,nm
enddo
close(2)
do i=1,55
read(3,*)y(i)
enddo
close(3)
do i=1,55
open(5,file='F:\data\tiaoxuan'//y(i)//'.txt')
do j=1,118
write(5,*)lat(j),lan(j)
enddo
enddo
close(5)
do i=1,118
write(*,'(a9)') st(i)
open(4,file='F:\data\tongji\'//st(i))
10 read(4,*)iy,(x(iy,j),j=1,12)
if(eof(4))then
close(4)
else
goto 10
endif
do j=1,55
open(5,file='F:\data\tiaoxuan'//y(j)//'.txt')
write(5,*)' ',x(j+1950,12)
enddo
enddo
end
各位高手们,小弟再次向大家发起求助了,还望大家多多关注,帮我解决,谢谢诸位了!
我的程序的主要目的就是要通过这个程序的运行最后按年份输出各个站的经纬度,以及低能见度天数,就输出这三行。主要是从不同文件中药筛选出来,我开始想了一些办法可最终没能成功,后来才决定使用这个程序试试,可是编译的时候遇到了如下的问题:
--------------------Configuration: tiaoxuan - Win32 Debug--------------------
Linking...
tiaoxuan.obj : error LNK2001: unresolved external symbol _LAN@4
Debug/tiaoxuan.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.
tiaoxuan.exe - 2 error(s), 0 warning(s)
我从来没有遇到过,不知道该如何解决,我感觉我的程序逻辑很简单,怎么会遇到这样的问题呢?还烦请各位高手们,多多指点帮助啊!不胜感激!
integer x(1951:2005,12)
real lat(118),lon(118),hig(118)
character st(118)*9,y(55)*4
open(1,file='F:\data\zhongjian\station.txt')
open(2,file='F:\data\zhongjian\lonlat.txt')
open(3,file='F:\data\zhongjian\nianfen.txt')
do i=1,118
read(1,'(a9)') st(i)
enddo
close(1)
do i=1,118
read(2,*)nx,lat(i),lon(i),hig(i),ny,nz,nm
enddo
close(2)
do i=1,55
read(3,*)y(i)
enddo
close(3)
do i=1,55
open(5,file='F:\data\tiaoxuan'//y(i)//'.txt')
do j=1,118
write(5,*)lat(j),lan(j)
enddo
enddo
close(5)
do i=1,118
write(*,'(a9)') st(i)
open(4,file='F:\data\tongji\'//st(i))
10 read(4,*)iy,(x(iy,j),j=1,12)
if(eof(4))then
close(4)
else
goto 10
endif
do j=1,55
open(5,file='F:\data\tiaoxuan'//y(j)//'.txt')
write(5,*)' ',x(j+1950,12)
enddo
enddo
end
各位高手们,小弟再次向大家发起求助了,还望大家多多关注,帮我解决,谢谢诸位了!
我的程序的主要目的就是要通过这个程序的运行最后按年份输出各个站的经纬度,以及低能见度天数,就输出这三行。主要是从不同文件中药筛选出来,我开始想了一些办法可最终没能成功,后来才决定使用这个程序试试,可是编译的时候遇到了如下的问题:
--------------------Configuration: tiaoxuan - Win32 Debug--------------------
Linking...
tiaoxuan.obj : error LNK2001: unresolved external symbol _LAN@4
Debug/tiaoxuan.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.
tiaoxuan.exe - 2 error(s), 0 warning(s)
我从来没有遇到过,不知道该如何解决,我感觉我的程序逻辑很简单,怎么会遇到这样的问题呢?还烦请各位高手们,多多指点帮助啊!不胜感激!