fortran循环读文件

huangyao

编写一个小程序批处理文件，但是一直报找不到文件
program main
implicit none
integer,parameter::n=75000
integer ch(n),high(n),lon(n),lat(n),year(n),mon(n),day(n),var1(n),var2(n),var(n),hao1(n),hao2(n),hao3(n)
integer i,j,k       


do i=1981,1982
  do j=1,12  
   open(10,file='F:\dw\pre\i\j.TXT',status='old')
    open (11,file='F:\dw\j\i.TXT')
    do k=1,n
    read(10,*)ch(k),high(k),lon(k),lat(k),year(k),mon(k),day(k),var1(k),var2(k),var(k),hao1(k),hao2(k),hao3(k)
      if (ch(k)==55593.or.ch(k)==55598.or.ch(k)==56227.or.ch(k)==56288.or.ch(k)==56312.or.ch(k)==56317.or.ch(k)==56331.or.ch(k)==56434)then
      write(11,*)ch(k),lon(k),lat(k),year(k),mon(k),day(k),var(k)
      end if
     end do
    end do
  end do
end

这是报错截图

路径

挺身而出

你要打开的1/1.TXT，你的程序打开的是i/j.TXT
先把数字变成字符

蔚蓝情怀

open(10,file='F:\dw\pre\i\j.TXT',status='old')
    open (11,file='F:\dw\j\i.TXT')
这样写是不对的 要变成字符输入文件路径和名字才行

huangyao

哦哦，后来发现了这个问题，谢谢，后来改成这样
program main
implicit none
integer,parameter::n=75000
integer ch(n),high(n),lon(n),lat(n),year(n),mon(n),day(n),var1(n),var2(n),var(n),hao1(n),hao2(n),hao3(n)
integer i,j,k
character*4 ii
character*2 jj       
character(25)::filename='F:\dw\pre\1234\1.TXT'
character(25)::filename2='F:\dw\pre\5678\3.TXT'



do i=1981,1982
  do j=1,12  
  write(filename(11:14),'(I4)')i
  write(filename(16:16),'(I4)')j
  write(filename2(16:16),'(I4)')i
  write(filename2(11:14),'(I4)')j
   open(unit=10,file=filename,status='old',recl=65)
    open (unit=11,file=filename2,recl=65)
    do k=1,n
    read(10,*)ch(k),high(k),lon(k),lat(k),year(k),mon(k),day(k),var1(k),var2(k),var(k),hao1(k),hao2(k),hao3(k)
      if (ch(k)==55593.or.ch(k)==55598.or.ch(k)==56227.or.ch(k)==56288.or.ch(k)==56312.or.ch(k)==56317.or.ch(k)==56331.or.ch(k)==56434)then
      write(11,*)ch(k),lon(k),lat(k),year(k),mon(k),day(k),var(k)
      end if
     end do
     close(11)
    end do
  end do
end


但是提示错误：
severe(66):output statement overflows record,unit-5,file Internal Formatted Write
请问这又是啥原因呢

lqouc

huangyao 发表于 2017-12-29 18:12
哦哦，后来发现了这个问题，谢谢，后来改成这样
program main
implicit none

recl都去掉吧
而且你的输出文件名i,j似乎是写反了

huangyao

huangyao 发表于 2017-12-29 18:12
哦哦，后来发现了这个问题，谢谢，后来改成这样
program main
implicit none

去掉recl一样的，输出文件是存成1-12个月的12个文件夹，每个文件夹里分别放每年的txt，比如1981.txt，所以应该没写反