Fortran Coder

标题: Gfortran读无格式文件，写入有格式顺序文件的题目 [打印本页]

作者: 1000 时间: 2020-6-11 23:27
标题: Gfortran读无格式文件，写入有格式顺序文件的题目
这个题是要这样的：

读无格式文件’1948.dat’, ‘1949.dat’, …, ‘2013.dat’，把每个月的数据单独写成有格式顺序文件，以月份的前三个字母命名，分别为’Jan.dat’, ’Feb.dat’, …, ’Dec.dat’, 每个文件2列66行，第一列为年份，第二列为温度数据。（要求：写12个文件时，要使用循环结构，不要复制12段重复性代码）。

然后代码我也写出来了，但是不知道为什么读取总会结束在第七个文件中，这些文件的内容都是我用循环写入的，不应该有某个文件的读写单独有问题，（讲内容写入文件的代码如第一部分，运行正常，不用管file exist，如图一），该题的代码如第二部分，该题的运行结果如图二，实在不知道哪里错了。求大神指点！！！！
第一部分：

[Fortran] 纯文本查看 复制代码

program main

implicit none

integer::i,s=1948

character(len=5)::dirname

character(len=8)::filename

real,dimension(12)::a

open(10,file='TI.dat',form='unformatted',access='direct',recl=48)

do i=1,66

  read(10,rec=i)a

  print*,a

  write(dirname,'(i4,"s")')s

  write(filename,'(i4,".dat")')s

  call system("mkdir "//dirname)

  open(s,file=trim(dirname)//'/'//filename,form='unformatted',access='direct',recl=48)

  write(s,rec=1)a

  close(s)

  s=s+1

enddo

endprogram

第二部分：

[Fortran] 纯文本查看 复制代码

character(len=7),dimension(12)::monname

do i=1,66

  write(dirname,'(i4,"s")')dir

  write(filename,'(i4,".dat")')dir

  open(i,file=trim(dirname)//'/'//filename,form='unformatted',access='direct',recl=4)

  do j=1,12

    read(i,rec=j)a(i,j)

  enddo

  close(i)

  dir=dir+1

enddo



do j=1,12

  monname=['Jan.dat','Feb.dat','Mar,dat','Apr.dat','May.dat','Jun.dat','Jul.dat','Aug.dat','Sep.dat','Oct.dat','Nov.dat','Dec.dat']

  open(k,file='/'//monname(j),status='new')

  do i=1,66

    write(k,'(i4,f4.2)')s,a(i,j)

    s=s+1

  enddo

  close(k)

  k=k+1

  s=1948

enddo

endprogram

1.PNG (73.41 KB, 下载次数: 326)

2.PNG (23.79 KB, 下载次数: 316)

作者: fcode 时间: 2020-6-12 08:05
文件权限有问题，检查文件夹及文件的归属权。不行的话可以设置成 chmod 666

作者: necrohan 时间: 2020-6-12 08:13
看你的帖子跟连续剧似的

作者: 1000 时间: 2020-6-12 09:46

fcode 发表于 2020-6-12 08:05
文件权限有问题，检查文件夹及文件的归属权。不行的话可以设置成 chmod 666

我就是不太明白那66个文件夹我是一块创建的为啥在第七个文件夹那会有问题

作者: fcode 时间: 2020-6-13 08:00
我不清楚在你的计算机上发生了什么。但是现象来看，是这个原因。

论坛里没有神仙，都是凡人，我们不会掐指算卦，只能根据现象猜测原因，然后逐个检查排除，直到找到真正的原因。

作者: 1000 时间: 2020-6-14 09:38

fcode 发表于 2020-6-13 08:00
我不清楚在你的计算机上发生了什么。但是现象来看，是这个原因。

论坛里没有神仙，都是凡人，我们不会掐指 ...

好的我再瞅瞅叭

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)