本帖最后由 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 |