24小时热门版块排行榜    

查看: 340  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 274求调剂 +10 顾九笙要谦虚 2026-03-24 14/700 2026-03-26 01:09 by 15366876211
[考研] 275求调剂 +3 Micky11223 2026-03-25 5/250 2026-03-25 22:32 by barlinike
[考研] 材料与化工328分调剂 +6 。,。,。,。i 2026-03-23 6/300 2026-03-25 22:30 by 418490947
[考研] 各位老师您好:本人初试372分 +5 jj涌77 2026-03-25 6/300 2026-03-25 14:15 by mapenggao
[考研] 086003食品工程求调剂 +6 淼淼111 2026-03-24 6/300 2026-03-25 10:29 by 3Strings
[考研] 286求调剂 +11 Faune 2026-03-21 11/550 2026-03-25 10:11 by 雾散后相遇lc
[考研] 0703化学求调剂 +6 奶油草莓. 2026-03-22 7/350 2026-03-25 10:00 by shangxh
[考研] 化学调剂 +6 yzysaa 2026-03-21 6/300 2026-03-25 09:27 by aa331100
[考研] 307求调剂 +5 超级伊昂大王 2026-03-24 5/250 2026-03-24 15:46 by 星空星月
[考研] 一志愿华东理工大学081700,初试分数271 +5 kotoko_ik 2026-03-23 6/300 2026-03-24 10:29 by 学术搬砖er
[考研] 341求调剂(一志愿湖南大学070300) +5 番茄头--- 2026-03-22 6/300 2026-03-23 23:45 by Txy@872106
[考研] 327求调剂 +5 prayer13 2026-03-23 5/250 2026-03-23 22:11 by 星空星月
[考研] 269求调剂 +4 我想读研11 2026-03-23 4/200 2026-03-23 21:25 by pswait
[基金申请] 山东省面上项目限额评审 +4 石瑞0426 2026-03-19 4/200 2026-03-22 08:50 by Wei_ren
[考研] 初试 317 +7 半拉月丙 2026-03-20 7/350 2026-03-21 22:26 by peike
[考研] 材料求调剂 +5 @taotao 2026-03-21 5/250 2026-03-21 20:55 by lbsjt
[考研] 296求调剂 +4 www_q 2026-03-20 4/200 2026-03-21 17:26 by 学员8dgXkO
[考研] 一志愿苏州大学材料求调剂,总分315(英一) +5 sbdksD 2026-03-19 5/250 2026-03-20 22:10 by luoyongfeng
[考研] 中南大学化学学硕337求调剂 +3 niko- 2026-03-19 6/300 2026-03-20 21:58 by luoyongfeng
[考研] 261求B区调剂,科研经历丰富 +3 牛奶很忙 2026-03-20 4/200 2026-03-20 19:34 by JourneyLucky
信息提示
请填处理意见