kaola132 发表于 2015-1-28 09:21:46

文件读取问题

水平比较渣，又好久没用过了，编程时候读取文件有些问题，如果是这样一个文件我想要读取并且显示出来，跟我后面要处理的数据结构差不多这样总是出错
program main
   implicit none
   real,dimension(3)::a,b,c
   integer::l
   open(2,file='a.dat')
   do l=1,3
   read(*,2)a(l),b(l),c(l)
   enddo
   do l=1,3
   print*a(l),b(l),c(l)
   enddo
   close(2)
end用的codeblocks

kaola132 发表于 2015-1-28 09:31:02

报错如下
Error: FORMAT label 2 at (1) not defined
Process terminated with status 1 (0 minute(s), 0 second(s))
2 error(s), 0 warning(s) (0 minute(s), 0 second(s))

pasuka 发表于 2015-1-28 09:38:55

kaola132 发表于 2015-1-28 09:31
报错如下
Error: FORMAT label 2 at (1) not defined
Process terminated with status 1 (0 minute(s), 0 s ...

- read(*,2)a(l),b(l),c(l)
+ read(2,*)a(i),b(i),c(i)

kaola132 发表于 2015-1-28 09:43:04

pasuka 发表于 2015-1-28 09:38
- read(*,2)a(l),b(l),c(l)
+ read(2,*)a(i),b(i),c(i)

谢谢，不过又出现了这个报错，昨天也是，
Error: Expected comma in I/O list at (1)
Process terminated with status 1 (0 minute(s), 0 second(s))
1 error(s), 0 warning(s) (0 minute(s), 0 second(s))

li913 发表于 2015-1-28 11:39:17

read(2,*)a(l),b(l),c(l)
print*, a(l),b(l),c(l)

fcode 发表于 2015-1-28 13:06:49

Program Main
Implicit None
Real, Dimension (3) :: A, B, C
Integer :: L
Open (2, File='a.dat')
Do L = 1, 3
    Read (2, *) A(L), B(L), C(L) !// 2 和 *写反了
End Do
Do L = 1, 3
    Print *, A(L), B(L), C(L) !// 少个逗号
End Do
Close (2)
End Program Main
页: [1]
查看完整版本: 文件读取问题