Fortran Coder

查看: 74|回复: 4

[求助] 第一行出现十几个错误

[复制链接]

3

帖子

1

主题

0

精华

新人

F 币
26 元
贡献
11 点
发表于 2021-11-22 12:09:48 | 显示全部楼层 |阅读模式
程序在学校的电脑上可以运行,然后我复制到我的电脑上运行时,有十几个错误,而且都在第一行,这是为什么呀
[Fortran] 纯文本查看 复制代码
Program read_grd
    character*160 cmdfile,inputfile,outputfile,str
    integer  line1,line2
    real  step,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


9]PF%9]U%YXH3AX_3JQCW0S.png
ZE$N@PL{R1IIERQXV5[_@6D.png
回复

使用道具 举报

1669

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
2192 元
贡献
1376 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2021-11-22 14:36:03 | 显示全部楼层
截图要大,要带上代码。

3

帖子

1

主题

0

精华

新人

F 币
26 元
贡献
11 点
 楼主| 发表于 2021-11-22 20:54:31 | 显示全部楼层
fcode 发表于 2021-11-22 14:36
截图要大,要带上代码。

好的,谢谢

3

帖子

1

主题

0

精华

新人

F 币
26 元
贡献
11 点
 楼主| 发表于 2021-11-22 21:00:19 | 显示全部楼层

哇咔咔,遇到学长啦,学长你好呀,我也是长大的(渭水校区),跟你一个专业地物的,不过大三专业分流,学的勘查技术与工程

1669

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
2192 元
贡献
1376 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2021-11-23 09:20:05 | 显示全部楼层
有点奇怪,代码没有问题。

可能性:
1. 你是否工程里添加的是一个源代码文件(Source1.f90),而当前编辑的是另一个源代码文件?
2. 你编译的代码文件,是否编码或换行符设置不对?尝试从论坛帖子里复制粘贴回去。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2021-12-3 03:43

Powered by Tencent X3.4

© 2013-2021 Tencent

快速回复 返回顶部 返回列表