Question

Fortran文件读取出错！！

program AAAimplicit none integer :: i,points,points2 real :: step real,allocatable :: xp(:),yp(:),xpt(:),ypt(:) write(*,*)"原始点数？" read(*,*)points allocate(xp(points),yp(points)) open(12,file='input.txt',status='old') do i=1,points read(12,“(f7.2,4x,f6.4)")xp(i),yp(i) end do close(12) write(*,*)"插值点阵X轴步长？" read(*,*)step points2=int((xp(points)-xp(1))/step)+1 allocate(xpt(points2),ypt(points2)) xpt(1)=xp(1) do i=2,points2 xpt(i)=xpt(i-1)+real(i-1)*step end do call subspline(points,xp,yp,points2,xpt,ypt) open(10,file='out.txt',status='replace') do i=1,points2 write(10,"(f7.2,4x,e7.5)")xpt(i),ypt(i) end do
close(10) pause stop end program

input.txt文件如下图

编译完成后执行程序显示

我把 read(12,“(f7.2,4x,f6.4)")xp(i),yp(i)改成 read(12,*)xp(i),yp(i)以后又提示

我用的是VS2008+IVF11.1**





Answer 1

1. 读入时用 read(12,*)
   

2. 绝大多数情况下，read 都用 * 既可。极少数情况下需要使用格式

3. 检查一下你的 input.txt 是否为 ANSI 编码？会不会不小心切换成 unicode 编码了？
   

Answer 2

想问一下你后来怎么解决的，谢谢🙏