回复：有偿服务及求助信息发布专贴

下面是已经有的二维桁架程序 要求根据这个改写成PPT中的要求 有偿 会做这块的联系一下我吧

关于如何在Fortran中输出带有变量名称的文件名字的问题，有偿，十块

最近发现的一个问题，一直困扰我，看看没有大神给我解惑，有偿。
PROGRAM ceshi
USE common
IMPLICIT NONE
integer i,j,k,n
real maxx,maxy,maxz,dzz
dzz=0.6
maxz=80;maxy=80;maxx=80
allocate(indt(i,j,k),ce(i,j,k))
indt=0;ce=0
do k=1,maxz
do j=1,maxy
do i=1,maxx
if(i<40) indt(i,j,k)=1
enddo
enddo
enddo
do k=1,maxz
do j=1,maxy
do i=1,maxx
if( indt(i,j,k)==1) cycle
ce(i,j,k)=dzz
enddo
enddo
enddo
MODULE common
REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: indt,ce
real dzz
ENDMODULE common
ENDPROGRAM ceshi
这段程序里 if( indt(i,j,k)==1) cycle是对所有的i，j，k进行筛选，不满足条件的就进行ce(i,j,k)=dzz，但是结果发现没有if( indt(i,j,k)==1) cycle，ce(i,j,k)=dzz程序执行次数是80*80*80次，而有if( indt(i,j,k)==1) cycle，ce(i,j,k)=dzz程序执行次数是40*80*80次，两者执行次数相差一倍，但是耗时很接近。
关于这个问题的解释就是，fortran循环是列循环，如果循环没有中断，循环速度很快，但是如果是跳跃循环，那这个循环速度就会变慢，再加上if(indt(i,j,k)==1)cycle，也耗时。但是没有找到好的办法让这个循环里带if（）cycle 的代码 执行次数和时间 成比例。
联系方式：二9五零4零柒玖玖（企鹅）

老板让跑通一个源码，本人一窍不通，求大佬帮忙，有偿

将MATLAB转为Fortran 有偿 zhu_m_h@163.com我邮箱

寻一名fortran大神，求教编一套构建星型网络的程序，200-500.后续可能还有求教。

大二期末课设，有偿，私聊！

fortran计算程序设计求大佬帮忙，从txt读取一列数据代入公式，有偿，q473725562