function bd_min( x, y)
dll_export bd_min
integer :: bd_min
integer :: x, y
end function bd_min

function bd_max( x, y)
dll_export bd_max
integer :: bd_max
integer :: x, y
end function bd_max