subroutine b_sub(arg1, arg2)
   integer, intent(in), optional :: arg1
   integer, intent(in) :: arg2
   !...
end subroutine b_sub