!****************************************************! 階乗計算!! date name version! 2018.08.20 mk-mode.com 1.00 新規作成!! Copyright(C) 2018 mk-mode.com All Rights Reserved.!****************************************************!program fact_mainimplicit noneinteger ndo n=0,20write(*,'(I3,3X,I20)')n,fact(n)enddostopcontains! 階乗計算!! :param integer n! :return integer factinteger(kind=8)recursive function fact(n)implicit noneinteger,intent(IN)::ninteger::ifact=1do i=1,nfact=fact*ienddoreturn end function factend program fact_main