fortran程序的作用是读入两个文件中的数字,忽略字母,并作适当变换,构建没有错误,运行错误如图,程序说明:data1为7行字母,48行数字交替,数字共np行.data2为6行字母,50行数字交替,数字共el行,程
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/08 00:17:41
![fortran程序的作用是读入两个文件中的数字,忽略字母,并作适当变换,构建没有错误,运行错误如图,程序说明:data1为7行字母,48行数字交替,数字共np行.data2为6行字母,50行数字交替,数字共el行,程](/uploads/image/z/11453708-20-8.jpg?t=fortran%E7%A8%8B%E5%BA%8F%E7%9A%84%E4%BD%9C%E7%94%A8%E6%98%AF%E8%AF%BB%E5%85%A5%E4%B8%A4%E4%B8%AA%E6%96%87%E4%BB%B6%E4%B8%AD%E7%9A%84%E6%95%B0%E5%AD%97%2C%E5%BF%BD%E7%95%A5%E5%AD%97%E6%AF%8D%2C%E5%B9%B6%E4%BD%9C%E9%80%82%E5%BD%93%E5%8F%98%E6%8D%A2%2C%E6%9E%84%E5%BB%BA%E6%B2%A1%E6%9C%89%E9%94%99%E8%AF%AF%2C%E8%BF%90%E8%A1%8C%E9%94%99%E8%AF%AF%E5%A6%82%E5%9B%BE%2C%E7%A8%8B%E5%BA%8F%E8%AF%B4%E6%98%8E%EF%BC%9Adata1%E4%B8%BA7%E8%A1%8C%E5%AD%97%E6%AF%8D%2C48%E8%A1%8C%E6%95%B0%E5%AD%97%E4%BA%A4%E6%9B%BF%2C%E6%95%B0%E5%AD%97%E5%85%B1np%E8%A1%8C.data2%E4%B8%BA6%E8%A1%8C%E5%AD%97%E6%AF%8D%2C50%E8%A1%8C%E6%95%B0%E5%AD%97%E4%BA%A4%E6%9B%BF%2C%E6%95%B0%E5%AD%97%E5%85%B1el%E8%A1%8C%2C%E7%A8%8B)
fortran程序的作用是读入两个文件中的数字,忽略字母,并作适当变换,构建没有错误,运行错误如图,程序说明:data1为7行字母,48行数字交替,数字共np行.data2为6行字母,50行数字交替,数字共el行,程
fortran程序的作用是读入两个文件中的数字,忽略字母,并作适当变换,构建没有错误,运行错误如图,
程序说明:data1为7行字母,48行数字交替,数字共np行.data2为6行字母,50行数字交替,数字共el行,程序的作用是读入两个文件中的数字,忽略字母,并作适当变换
program feap2tecplot
implicit none
integer np,el,i,j,k,m
integer,allocatable::b(:,:),bj(:,:定义动态数组
real,allocatable::ai(:,:),a(:,:)
write (*,90)
read (*,*)np,el
allocate(bj(el,4),b(el,7),ai(np,4),a(np,5))!动态数组大小
open(11,file='input.dat',status='new')
open(10,file='data1.dat',status='old')
open(12,file='data2.dat',status='old')
write(11,110)
k=0
do while (k<=np)!判断数字是否读完
do i=1,7
read(10,*)!忽略字母7行
enddo
do m=1,48
k=k+1
read(10,*) (a(k,j),j=1,5)
end do
end do
do i=1,np !数组变换
do j=2,5
ai(i,j-1)=a(i,j)
end do
end do
do i=1,np !写入目的文件
write(11,*) (ai(i,j),j=1,4)
end do
k=0
do while (k<=el)!判断数字是否读完
do i=1,6
read(12,*)!忽略字母6行
enddo
do m=1,50
k=k+1
read(12,*) (b(i,j),j=1,7)
end do
end do
do i=1,el
do j=4,7
bj(i,j-3)=b(i,j)
end do
end do
do i=1,el !写入目的文件
write(11,100) (bj(i,j),j=1,4)
end do
90 format('please input np,el:')
100 format(11(i5,1x))
110 format("title=example",/,"variables
=x,Y,disx,dispy",/,"f=fepoint,n=1881,e=1700,et=quadrilateral")
end
fortran程序的作用是读入两个文件中的数字,忽略字母,并作适当变换,构建没有错误,运行错误如图,程序说明:data1为7行字母,48行数字交替,数字共np行.data2为6行字母,50行数字交替,数字共el行,程
我没有你的数据文件,无法给你测试,无法帮你找到具体的错误所在.
但你图上的错误,end during reading 的意思是:正在读取数据,但遇到了文件尾端.
可能性有:
1.文件 data1 的行数不够.比如文件只有1700行,而你的代码里要求读1800行.
2.循环控制不对.比如你想读1800行,但代码写得不合适,读了1801行.
这两种可能性其实是相对而言的.其实就是文件的行数,低于代码需要的行数.要么是文件错了,要么是代码错了.