开始学习
yiyaxueyu22
这个作者很懒,什么都没留下…
展开
-
初学者---递归
program xuexi3 implicit none integer,external::fact*调用函数需要写external(待定)* integer::n write(*,*)"N=" read(*,*)n write(*,*)fact(n) stop end recursive integer function原创 2017-08-14 21:19:50 · 183 阅读 · 0 评论 -
数组(慢慢添加)
1.返回值是数组:使用interface接口(p189)interface function random10(lbound,ubound) implicit none real::lbound,ubound real::random10(10)*声明返回值是数组* end function end interfac原创 2017-08-14 21:59:04 · 155 阅读 · 0 评论