24小时热门版块排行榜    

查看: 259  |  回复: 1

mercury1204

木虫 (正式写手)

[求助] 将一个VC语句转化为Fortran语句已有1人参与

A是一个三维的数组。
double *A=new double[a*a*p];
        double *temp1=new double[a*a];
定义A,emp1是指针,m取值在0到p之间
VC语句
temp1[x*a+y]=A[x*a*p+y*p+m]
请问上面的语句在Fortran中如何实现?
非常感谢
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

linrn

至尊木虫 (著名写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
mercury1204: 金币+10, ★★★★★最佳答案 2014-12-13 11:43:24
程序如下:
!数组定义
!fortran定义在1~n上
real(kind=8),allocatable::A(a+1,a+1,p+1),temp1(a+1,a+1)


!分配区间
allocate(A(a+1,a+1,p+1))
allocate(temp1(a+1,a+1))

!其他处理


!赋值
temp1((x+1)*(a+1)+y+1)=A((x+1)*(a+1)*(p+1)+(y+1)*(p+1)+m+1)
2楼2014-12-12 21:06:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 mercury1204 的主题更新
信息提示
请填处理意见