libxsmm_coprime2 Function

public elemental function libxsmm_coprime2(n)

Calculate co-prime number <= n/2 (except: libxsmm_coprime2(0|1) == 0). Implicit FORTRAN 77 interface: INTEGER(8) :: coprime (OUT), n (IN)

Arguments

Type IntentOptional Attributes Name
integer(kind=C_LONG_LONG), intent(in) :: n

Return Value integer(kind=C_LONG_LONG)


Contents