第一行出现十几个错误
程序在学校的电脑上可以运行，然后我复制到我的电脑上运行时，有十几个错误，而且都在第一行，这是为什么呀Program read_grd
character*160 cmdfile,inputfile,outputfile,str
integerline1,line2
realstep,dx,dy
real,dimension(:,:),allocatable::input(:,:),output(:,:)
integer point,line
real Xmin,Xmax,Ymin,Ymax,Gmin,Gmax
cmdfile="cmd.par"
open(40,file=cmdfile,status='old')
read(40,*)
read(40,*)
read(40,*)
read(40,*)
read(40,*)
read(40,*)str,inputfile
read(40,*)str,line1,line2
read(40,*)str,step
read(40,*)str,outputfile!打开par文件读入相关的参数
close(40)
open(10,file=inputfile,status='old')
read(10,*)
read(10,*)point,line
read(10,*)Xmin,Xmax
read(10,*)Ymin,Ymax
read(10,*)Gmax,Gmin
close(10)
allocate(input(point,line),output(point,line))
write(*,"('dx=',f5.2,'dy=',f5.2)")(Xmax-Xmin)/(line-1),(Ymax-Ymin)/(point-1)!根据相关数据计算点线距dx、dy，并在屏幕上输出
open(20,file=inputfile,status='old')
read(20,*)
read(20,*)
read(20,*)
read(20,*)
read(20,*)
read(20,*)((input(i,j),i=1,point),j=1,line)
close(20)
!打开inputfile文件,并将其中的数据读入数组input
open(20,file=inputfile,status='old')
read(20,*)
read(20,*)
read(20,*)
read(20,*)
read(20,*)
read(20,*)((input(i,j),i=1,point),j=1,line)
close(20)
do j=1,line
do i=1,point
output(i,j)=input(i,j)
end do
end do
do j=line1,line2
do i=1,point
output(i,j)=input(i,j)+step
end do
end do
Gmin=HUGE(Gmin) !给Gmin赋予最大值
Gmax=-HUGE(Gmax)!给Gmax赋予最小值
Do j=1,line
Do i=1,point
Gmin=MIN(Gmin,output(i,j))
Gmax=MAX(Gmax,output(i,j))
End do
End do
!根据输入参数对数组input中某些行加入干扰值，并将最终结果存入output数组
open(30,file=outputfile,status='unknown')
write(30,'(a)')'DSAA'
write(30,*)point,line
write(30,*)Xmin,Xmax
write(30,*)Ymin,Ymax
write(30,*)Gmin,Gmax
do j=1,line
write(30,"(5F5.2)")(output(i,j),i=1,point)
end do
close(30)
!将output数组中的数据写入grd文件outputfile中
deallocate(input,output)
END program
截图要大，要带上代码。 fcode 发表于 2021-11-22 14:36
截图要大，要带上代码。
好的，谢谢 1829193965 发表于 2021-11-22 20:54
好的，谢谢
哇咔咔，遇到学长啦，学长你好呀，我也是长大的（渭水校区），跟你一个专业地物的，不过大三专业分流，学的勘查技术与工程 有点奇怪，代码没有问题。
可能性：
1. 你是否工程里添加的是一个源代码文件（Source1.f90），而当前编辑的是另一个源代码文件？
2. 你编译的代码文件，是否编码或换行符设置不对？尝试从论坛帖子里复制粘贴回去。
页:
[1]