Fortran Coder

查看: 7878|回复: 4
打印 上一主题 下一主题

[输入输出] 读取txt文件中的数组再简单输出,报错说前后格式不匹配

[复制链接]

6

帖子

2

主题

0

精华

入门

F 币
37 元
贡献
21 点
跳转到指定楼层
楼主
发表于 2019-10-22 16:39:17 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
[Fortran] 纯文本查看 复制代码
 PROGRAM MAIN
    
    IMPLICIT REAL*8 (A-Z)
    INTEGER::i,j,N,ioerr
    PARAMETER (N=4)
    REAL*8::A(N,N),b(N),x(N)
    
    OPEN(1,FILE='READ.TXT',FORM='FORMATTED',IOSTAT=IOERR)
    READ(1)((A(i,j),j=1,N),i=1,N)
    READ(1)(b(i),i=1,N)
    
    OPEN(2,FILE='WRITE.TXT')
    WRITE(2,10) X
10  FORMAT(4(/F12.8))
    
    END PROGRAM MAIN


确实只是读数据再输出而已,没有进行任何计算,错误提示forrtl:severe<256>:unformatted I/O to unit open for formatted transfers
难道是txt文件输入数据的时候需要特别的格式吗?我只是单纯用空格把数组中的数据分隔开了而已。



希望能有前辈帮忙解答一下,我这问题出在哪里?
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

2

帖子

0

主题

0

精华

新人

F 币
17 元
贡献
6 点
沙发
发表于 2019-10-22 18:33:57 | 只看该作者

你的问题在于没有显式书写读入格式

[Fortran] 纯文本查看 复制代码
program main  implicit none
  integer(kind=4),parameter :: n = 4
  real(kind=8)              :: a(n,n),b(n),x(n)
  integer(kind=4)           :: i, j, ioerr
  open(100,file='READ.TXT')
  read(100,*)
  do i = 1,n
          read(100,*)(a(i,j),j=1,n)
  end do
  read(100,*)
  do i = 1,n
          read(100,*)b(i)
  end do

  open(200,file='WRITE.txt')
  do i = 1, n
          write(200,"(*(f12.8,1x))")(a(i,j),j=1, n)
  end do
  write(200,"(/,4(f12.8,/))")b
  close(100)
  close(200)
end program main

test2.png (135.47 KB, 下载次数: 195)

test2.png

6

帖子

2

主题

0

精华

入门

F 币
37 元
贡献
21 点
板凳
 楼主| 发表于 2019-10-22 20:08:09 | 只看该作者
2629416609@qq.c 发表于 2019-10-22 18:33
program main  implicit none
  integer(kind=4),parameter :: n = 4
  real(kind=8)              :: a(n, ...

我按照你的意思改了,但是仍然有同样的问题,先谢谢你的热情帮助!感激!(回头看才发现有一些没用的定义忘了删掉,实在是不好意思。)
修改之后的代码是这样的
[Fortran] 纯文本查看 复制代码
    PROGRAM MAIN
    
    IMPLICIT REAL*8 (A-Z)
    INTEGER::i,N,ioerr
    PARAMETER (N=4)
    REAL*8::b(N)
    
    OPEN(11,FILE='READ.TXT',IOSTAT=IOERR)
    DO i=1,N
        READ(11) b(i)
    END DO
    
    OPEN(12,FILE='WRITE.TXT')
    DO i=1,N
        WRITE(12,10) b(i)
10      FORMAT(4(/F12.8))
    END DO
    
    CLOSE (11)
    CLOSE (12)
    
    END PROGRAM MAIN


简化了一下,只对一列四个数字进行读取和输出,还是找不到问题出在哪,能再帮我看看么?

2

帖子

0

主题

0

精华

新人

F 币
17 元
贡献
6 点
地板
发表于 2019-10-22 20:45:13 | 只看该作者

您需要确定从哪一行开始读,跳到那一行的方法不唯一

这想必是 发表于 2019-10-22 20:08
我按照你的意思改了,但是仍然有同样的问题,先谢谢你的热情帮助!感激!(回头看才发现有一些没用的定义 ...

[Fortran] 纯文本查看 复制代码
program test
  implicit none
  integer(kind=4),parameter  :: n = 4
  real(kind=8)               :: b(n)
  integer(kind=4)            :: i
  open(100,file='READ.txt')
  open(200,file='WRITE.txt')
  !do i = 1, 5
  !        read(100,*)
  !end do
  read(100,"(4(/))")
  do i = 1,4
          read(100,*)b(i)
  end do
  write(*,"(4(g0,/))")b
  write(200,"(4(g0,/))")b
end program test

test3.png (166.44 KB, 下载次数: 194)

test3.png

6

帖子

2

主题

0

精华

入门

F 币
37 元
贡献
21 点
5#
 楼主| 发表于 2019-10-23 15:28:22 | 只看该作者
2629416609@qq.c 发表于 2019-10-22 20:45
program test
  implicit none
  integer(kind=4),parameter  :: n = 4

非常感谢你的耐心解答,现在确实可以了,你的代码还有个小地方我不太明白,输出语句中的g0是什么意思呢?通用编辑符吗?为什么域宽是0呢?
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-11-24 00:42

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表