shiftl Function

private pure function shiftl(val, shift) result(res_value)

added for nvidia compilers

Arguments

Type IntentOptional Attributes Name
integer(kind=i8), intent(in) :: val
integer, intent(in) :: shift

Return Value integer(kind=i8)


Source Code

  pure function shiftl(val, shift) result(res_value)
    integer(i8), intent(in) :: val
    integer, intent(in)     :: shift
    integer(i8)             :: res_value

    res_value = lshift(val, shift)
  end function shiftl