get_padding_half Function

private pure function get_padding_half(width) result(output)

Function to return half the padding width

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: width

Width of kernel/filter

Return Value integer

Half the padding width


Source Code

  pure function get_padding_half(width) result(output)
    !! Function to return half the padding width
    implicit none

    ! Arguments
    integer, intent(in) :: width
    !! Width of kernel/filter
    integer :: output
    !! Half the padding width

    output = ( width - (1 - mod(width,2)) - 1 ) / 2
  end function get_padding_half