fortran中的do循环得到的一个有很多值的数，在do之外应该怎...

呜啦啦 · 发表于 2020-12-30 17:12:54

我在程序中调用evbas得到 v 值，然后让  vev= vapang+ v ，代码如下

   call evbas(r,v)

      vev= vapang+ v

但是，evbas子程序中v 是通过下面代码来计算的，所以v应该是有227个值，但是我do循环结束后只有一个v值输出，如果我需要让每一个 v 值都与vapang相加得到多个vev值，这个应该怎么办呢？

   do k=1,227

      v= c(k)*b(k)

   enddo

布衣龙共 · 发表于 2020-12-30 17:24:01

v 定义成数组

呜啦啦 · 发表于 2020-12-31 10:40:40

布衣龙共发表于 2020-12-30 17:24
v 定义成数组

我把v（我程序里面换成了pol）定义成了数组，如下
   do k=1,227
      pol(k)= c(k)*b(k)
   enddo

确实能读出来pol的值，那我上面进行加和的代码改写如下
      do k=1,227
      vev= vapang+ pol(k)
         enddo
，然后我读出vev值，结果显示NaN,也就是说结果是非数，这个应该怎么办呢

[求助] fortran中的do循环得到的一个有很多值的数，在do之外应该怎...

元老勋章

新人勋章