Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › forrrt1：severe<408>数组超限怎么整呀

forrrt1：severe<408>数组超限怎么整呀

查看数: 15060 | 评论数: 1 | 收藏 0

关灯 | 提示：支持键盘翻页<-左右->

帖子模式

xiao.

发布时间: 2021-1-13 10:50

正文摘要:

[Fortran] 纯文本查看复制代码 program co2h20n2 implicit none integer,parameter::M=2966297,N=2,L=1227853 real ::cob(3000001,2) real::co2(L,N) real::h2o(M,N) real ::k integer::i,j,q,p,count open(10,f ...

fcode 发表于 2021-1-13 10:59:54

错误提示仔细看看，英文翻译一下。
第57行，数组越界

co2 大小是 1227853，但p循环到 2966296

此外，既然你定义了 L 和 M，为什么代码里还要写一大堆 2966296 呢？这样你改这些数字多累啊？？为何不写成 do p = count , M-1 呢？

do k=0,30000,0.01
  do p=count,2966296
   if (k-co2(p,1)<0)then
cycle
   else if (k-co2(p,1)>0.01)then
   else
      cob(q,2)=cob(q,2)+co2(p,2)
         count=count+1
   end if
  end do

forrrt1：severe<408>数组超限怎么整呀

正文摘要:

回复