is_digit 函数

public pure function is_digit(c)

检查c 是否为数字（0 .. 9）。

参数

类型	意图	可选	属性		名称
character(len=1),	intent(in)			::	c	要测试的字符。

返回值 logical