[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

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

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

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)

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