subroutine set_mysub(proc) procedure(juown1_interface) :: proc mysub => proc end subroutine set_mysub