24小时热门版块排行榜    

查看: 317  |  回复: 0

pctd20102010

金虫 (小有名气)

[求助] fortran语言下的mpi语言循环的改编

求mpi使用的大神~!零零碎碎的看mpi有半年了~~~但是老师让改编一个程序里面的mpi循环~~~求大神帮忙改编一下~~
最近考试~~~没心忙大创~~求大神help!~~
DO 200 K=1,NKK
         FK=FKY(K)
         CALL FCSZ(IZnode,IXnode,FK,SIGM,X,Z,DX,DZ,A,BF,XIO)   !算系数矩
               
         CALL FLLT(IXnode*IZnode,IZnode+1,A)     !解线性方程组法
       
         DO 200 N1=NN1+15,NN2-14
         DO 17 I=1,IY
17       V1(I)=0.0
         KK=(NN1-1)*IZnode+1
             JK=(NN2-1)*IZnode+1
         V1(KK)=XIO
             V1(JK)=-XIO
         CALL FSLOV(IXnode*IZnode,IZnode+1,A,V1)
         DO 200 N2=NN1+15,NN2-14
         JJ=(N2-1)*IZnode+1
200      V(K,N2)=V1(JJ)
这是代码~~~~求把这部分改编了~~~~
回复此楼
天下无不破之思维,宇宙无不通之晓理。
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

找到一些相关的精华帖子,希望有用哦~

科研从小木虫开始,人人为我,我为人人
相关版块跳转 我要订阅楼主 pctd20102010 的主题更新
信息提示
请填处理意见