Fortran Coder

查看: 104|回复: 2

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

[复制链接]

9

帖子

5

主题

0

精华

入门

F 币
72 元
贡献
36 点
发表于 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
回复

使用道具 举报

7

帖子

0

主题

0

精华

专家

F 币
456 元
贡献
113 点

元老勋章

QQ
发表于 2020-12-30 17:24:01 | 显示全部楼层
v 定义成数组

9

帖子

5

主题

0

精华

入门

F 币
72 元
贡献
36 点
 楼主| 发表于 2020-12-31 10:40:40 | 显示全部楼层

我把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,也就是说结果是非数,这个应该怎么办呢
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2021-1-25 03:40

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

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