第一行出现十几个错误

1829193965 · 发表于 2021-11-22 12:09:48

程序在学校的电脑上可以运行，然后我复制到我的电脑上运行时，有十几个错误，而且都在第一行，这是为什么呀

[Fortran] 纯文本查看 复制代码

01Program read_grd
02    character*160 cmdfile,inputfile,outputfile,str
03    integer  line1,line2
04    real  step,dx,dy
05    real,dimension(:,:),allocatable::input(:,:),output(:,:)
06    integer point,line
07    real Xmin,Xmax,Ymin,Ymax,Gmin,Gmax
08 
09    cmdfile="cmd.par"
10    open(40,file=cmdfile,status='old')
11    read(40,*)
12    read(40,*)
13    read(40,*)
14    read(40,*)
15    read(40,*)
16    read(40,*)str,inputfile
17    read(40,*)str,line1,line2
18    read(40,*)str,step
19    read(40,*)str,outputfile!打开par文件读入相关的参数
20    close(40)
21 
22    open(10,file=inputfile,status='old')
23    read(10,*)
24    read(10,*)point,line
25    read(10,*)Xmin,Xmax
26    read(10,*)Ymin,Ymax
27    read(10,*)Gmax,Gmin
28    close(10)
29allocate(input(point,line),output(point,line))
30 
31 
32    write(*,"('dx=',f5.2,'dy=',f5.2)")(Xmax-Xmin)/(line-1),(Ymax-Ymin)/(point-1)!根据相关数据计算点线距dx、dy，并在屏幕上输出
33           open(20,file=inputfile,status='old')
34         read(20,*)
35         read(20,*)
36         read(20,*)
37     read(20,*)
38     read(20,*)
39         read(20,*)((input(i,j),i=1,point),j=1,line)
40              close(20)
41         !打开inputfile文件,并将其中的数据读入数组input
42         open(20,file=inputfile,status='old')
43         read(20,*)
44         read(20,*)
45         read(20,*)
46    read(20,*)
47    read(20,*)
48         read(20,*)((input(i,j),i=1,point),j=1,line)
49              close(20)
50 
51do j=1,line
52    do i=1,point
53        output(i,j)=input(i,j)
54    end do
55    end do
56 
57 
58 
59 
60do j=line1,line2
61    do i=1,point
62        output(i,j)=input(i,j)+step
63    end do
64    end do
65 
66     Gmin=HUGE(Gmin)   !给Gmin赋予最大值
67     Gmax=-HUGE(Gmax)  !给Gmax赋予最小值
68     Do j=1,line
69       Do i=1,point
70       Gmin=MIN(Gmin,output(i,j))
71       Gmax=MAX(Gmax,output(i,j))
72  End do
73End do 
74!根据输入参数对数组input中某些行加入干扰值，并将最终结果存入output数组
75     open(30,file=outputfile,status='unknown')
76write(30,'(a)')'DSAA'
77write(30,*)point,line
78write(30,*)Xmin,Xmax
79write(30,*)Ymin,Ymax
80write(30,*)Gmin,Gmax
81do j=1,line
82    write(30,"(5F5.2)")(output(i,j),i=1,point)
83end do
84close(30)
85!将output数组中的数据写入grd文件outputfile中
86deallocate(input,output)
87 
88END program