fortran 判断整除