论坛 › Fortran语法讨论 › F77的循环语法不太理解~感谢~

哈哈哈 发表于 2016-9-22 04:29:29

F77的循环语法不太理解~感谢~

          do 150 k=n,2,-1
             do 140 i=k,n
140            d(k-1,j)=d(k-1,j)-a(k-1,i)*d(i,j)
               d(k-1,j)=d(k-1,j)/a(k-1,k-1)
150          continue
上面这段代码，如果改成F90的话，是不是这样的呢？
      do k=n,2,-1
            do i=k,n
                d(k-1,j)=d(k-1,j)-a(k-1,i)*d(i,j)
                d(k-1,j)=d(k-1,j)/a(k-1,k-1)
            end do
      end do

li913 发表于 2016-9-22 10:15:03

do k=n,2,-1
    do i=k,n
      d(k-1,j)=d(k-1,j)-a(k-1,i)*d(i,j)
                end do
    d(k-1,j)=d(k-1,j)/a(k-1,k-1)
end do

哈哈哈 发表于 2016-9-22 13:54:49

li913 发表于 2016-9-22 10:15
do k=n,2,-1
    do i=k,n
      d(k-1,j)=d(k-1,j)-a(k-1,i)*d(i,j)


是不是没有continue的话，就只进行表明数字的那一行，如果有continue的话，就循环到continue{:4_99:}

楚香饭 发表于 2016-9-22 14:09:01

do   数字 .....
   ....A
   ....B
   ....C
数字   ....D

等效于

do.....
   ....A
   ....B
   ....C
   ....D
End Do

不管有没有 continue

查看完整版本: F77的循环语法不太理解~感谢~