您所在位置：主题：fortran 分段 程序求助 谢谢
Arsenal14
[专家分：0] 发布于 2011-10-22 21:32:00
do x=1,100
do z=1,L
cf(x,z)=0
Sd(x,z)=1.0d0
Cd(x,z)=0.0d0
end do
end do
do x=100,200
do z=100,L
cf(x,z)=0
Sd(x,z)=1.0d0
Cd(x,z)=0.0d0
end do
end do
do x=200,300
do z=1,L
cf(x,z)=0
Sd(x,z)=1.0d0
Cd(x,z)=0.0d0
end do
end do
do x=300,400
do z=100,L
cf(x,z)=0
Sd(x,z)=1.0d0
Cd(x,z)=0.0d0
end do
end do
do x=400,500
do z=1,L
cf(x,z)=0
Sd(x,z)=1.0d0
Cd(x,z)=0.0d0
end do
end do
这是我的一个分段函数的程序，怎么将上面这一段程序 简化哦 fortran里面有没有一种语言能将这种情况简化一下啊 ？？谢谢了