Fortran Coder

查看: 14466|回复: 5
打印 上一主题 下一主题

[数值问题] fortran二维数组如何赋值给四维数组???

[复制链接]

1

帖子

0

主题

0

精华

新人

F 币
14 元
贡献
5 点
楼主
发表于 2019-11-16 13:06:04 | 显示全部楼层
本帖最后由 GuihangShao 于 2019-11-16 13:11 编辑

按照楼主代码,在vs2012+ivf2013环境下并没有报错。

代码:

[Fortran] 纯文本查看 复制代码
    program ex_fcode
    implicit none
    integer :: i,j
    real*8 A11(64,64),A12(64,64),A21(64,64),A22(64,64),B(64,64,2,2)
    
    A11=0.0d0
    A12=0.0d0
    A21=0.0d0
    A22=0.0d0
    
    do i=1,64
        do j=1,64
            B(i,j,1,1)=A11(i,j)
            B(i,j,1,2)=A12(i,j)
            B(i,j,2,1)=A21(i,j)
            B(i,j,2,2)=A22(i,j)
        enddo
    enddo
    
    pause
    endprogram ex_fcode
    

   
结果截图:

D:\MarineCode\20181022Test\20191116forFcode
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-11-1 07:09

Powered by Tencent X3.4

© 2013-2024 Tencent

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