- 积分
- 544
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-9-22
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
我用fortran读取自动站逐时文件,文件都是存在相应文件夹中的,可是运行后一直显示找不到文件,请问是代码的问题,还是文件本身的问题。
program test
implicit none
integer::a(12)=[31,28,31,30,31,30,31,31,30,31,30,31]
integer i,j,k,m
character(len=14),allocatable::filenames(:)
character(len=256) :: c_temp = " "
character(len=100) :: c_big_path = " "
m=sum(a(1:12))*24
allocate(filenames(m))
open(10,file='d:\filenames.txt')
do i=1,12
do j=1,a(i)
do k=1,24
write(10,'(a6,i2.2,i2.2,i2.2,a2)') 'AI2008',i,j,k-1,'00'
enddo
enddo
enddo
rewind 10
do i=1,m
read(10,*) filenames(i)
enddo
close(10)
c_big_path="d:\2008\"
do i=1,m
c_temp=adjustl(trim(c_big_path))//adjustl(trim(filenames(i)))
open(i,file=adjustl(trim(c_temp)), status="old")
! read(i,*)
close(i)
end do
end program test
搜索
|
|