make_coordinate_tuple Function

public elemental function make_coordinate_tuple(most, least) result(tuple)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: most
integer, intent(in) :: least

Return Value integer(kind=int_8)


Source Code

   ELEMENTAL FUNCTION make_coordinate_tuple(most, least) RESULT(tuple)
      INTEGER, INTENT(IN)                                :: most, least
      INTEGER(KIND=int_8)                                :: tuple

!tuple = IOR (ISHFT (most, 32), least)

      tuple = most
      tuple = IOR(ISHFT(tuple, 32), INT(least, int_8))
   END FUNCTION make_coordinate_tuple