[交流] 【求助】如何实现数字紧贴字母输入

Originally posted by xk6891 at 2011-01-13 10:19:56:

请教个问题，用fortran读取文件编译通过，但是读取的时候出现这个错误“Fortran runtime error: End of file”，贴上说在文本的最后敲enter，但是没解决（昨天成功读取了，今天又不行了）
参考的是这个帖子[ur ...

Originally posted by xk6891 at 2011-01-13 11:09:00:

还是不明白，您能否再细致明示一下，是read（……）括号当中的什么选项。
这个帖子http://forum.simwe.com/viewthread.php?tid=852737有时候成功，我把里面第一个程序中read（100）改成了 ...

program main
real a,b
dimension a(3,7),b(3,1)

open (17,file='data.dat',status='old')
do i=1,3
   read (17,*) (a(i,j),j=1,3)
end do
close (17)

open (18,file='fort.13',status='unknown')
do i=1,3
   b(i,1)=a(i,3)
   write(18,*)b(i,:)
end do
close(18)
end

program main
   implicit none
   integer, dimension(3) :: b
   integer :: i, ios
   character(len=80) :: line
   
   open (17,file='data.dat',status='old')
   open (18,file='fort.13',status='unknown')
   
   i=0
   do
   i=i+1
     read(unit=17,fmt='(a)', iostat=ios) line
     if (ios < 0) exit
     read(line,'(4X,I1)') b(i)
     write(18,*) b(i)
   enddo

end program main

Originally posted by xk6891 at 2011-01-13 13:43:30:

谢谢专家了，感激不尽，问题得到解决，fortran会读数据了。
这种页面插入代码如何做到的
能请您介绍一些shell或perl方面的入门资料么，貌似在shell语言中的awk和 ...

，code 后加

Originally posted by xk6891 at 2011-01-13 14:14:43:

呵呵，我就是问问，感觉程序强人一般神马都懂，呵呵，那Fortran除了经常看的彭国伦的还有谁的资料不错么想看一看