gcd Interface

public interface gcd

Module Procedures

private function gcd_array_i4(ain) result(bsize)

Arguments

Type IntentOptional Attributes Name
integer(kind=i4), intent(in), dimension(:) :: ain

Return Value integer

private function gcd_array_i8(ain) result(bsize)

Arguments

Type IntentOptional Attributes Name
integer(kind=pio_offset), intent(in), dimension(:) :: ain

Return Value integer(kind=pio_offset)

private function gcd_pair_i4(u, v) result(gcd)

Arguments

Type IntentOptional Attributes Name
integer(kind=i4), intent(in) :: u
integer(kind=i4), intent(in) :: v

Return Value integer

private function gcd_pair_i8(u, v) result(gcd)

Arguments

Type IntentOptional Attributes Name
integer(kind=pio_offset), intent(in) :: u
integer(kind=pio_offset), intent(in) :: v

Return Value integer(kind=pio_offset)