Put send in subprogram