; docformat = 'rst' ;+ ; Find the least common multiple (LCM) for two positive integers. ; ; :Examples: ; For example, try:: ; ; IDL> print, mg_lcm(3, 4) ; 12 ; IDL> print, mg_lcm(4, 6) ; 12 ; ; :Returns: ; integer ; ; :Params: ; a : in, required, type=integer ; first integer ; b : in, required, type=integer ; second integer ;- function mg_lcm, a, b compile_opt strictarr on_error, 2 if (n_params() ne 2) then message, 'incorrect number of arguments' return, abs(a) / mg_gcd(a, b) * abs(b) end