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

fcode

错误提示仔细看看，英文翻译一下。
第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