文件读取问题

kaola132

水平比较渣，又好久没用过了，编程时候读取文件有些问题，如果是这样一个文件 我想要读取并且显示出来，跟我后面要处理的数据结构差不多这样总是出错

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

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

报错如下
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))

kaola132

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))