使用时，需设定大数模块中的
integer, parameter, public :: nr_of_decimal_digits = 180
为最大的限额。比如180，表示最大可表达 10e180 的整数。这不支持动态，如果你改变了它，需重新编译。
以下例子 求 100 的阶乘，并计算结果每一位数字的和：
结果为
|
program www_fcode_cn
use big_integer_module !// 使用大数模块
implicit none
integer i
type(big_integer) :: a !// 定义大数 a
integer :: sum , b
a = 1
do i=1,100
a = a * i
end do !// 求 100 的阶乘
sum=0
call print_big (a) !// 输出大数
write(*,*)
do while (a > 0)
b=modulo(a,10)
a = a / 10
sum=sum+b
end do
write(*,*) sum !// 获得大数各位数的和
end program www_fcode_cn
大数模块代码较多，请通过本地下载。
