! usage
  integer :: r
  call a_sub(1,2, r)
  call a_sub(arg2=2, arg1=1)