隨便寫一個來當範例recursive subroutine a(x) implicit none integer :: x if(x.gt.1)then x=x-1 call a(x) return else call b(x) end if return ...
確定! 回上一頁