Fortran Coder

查看: 8692|回复: 2
打印 上一主题 下一主题

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

[复制链接]

12

帖子

6

主题

0

精华

入门

F 币
87 元
贡献
45 点
跳转到指定楼层
楼主
发表于 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
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

54

帖子

0

主题

0

精华

实习版主

F 币
653 元
贡献
214 点

元老勋章新人勋章

QQ
沙发
发表于 2020-12-30 17:24:01 | 只看该作者
v 定义成数组

12

帖子

6

主题

0

精华

入门

F 币
87 元
贡献
45 点
板凳
 楼主| 发表于 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,也就是说结果是非数,这个应该怎么办呢
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-4-25 20:47

Powered by Tencent X3.4

© 2013-2024 Tencent

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