Lines Matching defs:bi
8 integer, dimension(n) :: ai, bi , imodulo_result, ifloor_result
14 bi(1:4) = (/ 3,-3, 1, -1/)
15 bi(5:8) = bi(1:4)
16 bi(9:12) = bi(1:4)
17 bi(13:16) = bi(1:4)
19 br = bi
21 imodulo_result = modulo(ai,bi)
23 ifloor_result = nint(real(ai-floor(real(ai)/real(bi))*bi))
33 ! ai(i), bi(i), imodulo_result(i), ifloor_result(i)