ilcm.f File Reference

Go to the source code of this file.

Functions/Subroutines
integer function	ilcm (m, n)

Function/Subroutine Documentation

ilcm()

integer function ilcm	(	integer	m,
		integer	n )

Definition at line 1 of file ilcm.f.

*
*  -- ScaLAPACK tools routine (version 1.7) --
*     University of Tennessee, Knoxville, Oak Ridge National Laboratory,
*     and University of California, Berkeley.
*     May 1, 1997
*
*     .. Scalar Arguments ..
      INTEGER            M, N
*     ..
*
*  Purpose
*  =======
*
*  ILCM computes and returns the Least Common Multiple (LCM) of two
*  positive integers M and N. In fact the routine computes the greatest
*  common divisor (GCD) and use the fact that M*N = GCD*LCM.
*
*  Arguments
*  =========
*
*  M       (input) INTEGER
*          On entry, M >=0. Unchanged on exit.
*
*  N       (input) INTEGER
*          On entry, N >=0. Unchanged on exit.
*
*  =====================================================================
*
*     .. Local Scalars ..
      INTEGER            IA, IQ, IR
*     ..
*     .. Executable Statements ..
*
      IF( m.GE.n ) THEN
         ia = m
         ilcm = n
      ELSE
         ia = n
         ilcm = m
      ENDIF
*
   10 CONTINUE
         iq = ia / ilcm
         ir = ia - iq * ilcm
         IF( ir.EQ.0 ) THEN
            ilcm = ( m * n ) / ilcm
            RETURN
         END IF
         ia = ilcm
         ilcm = ir
      GO TO 10
*
*     End of ILCM
*