set_mysub Subroutine

public subroutine set_mysub(proc)

Arguments

Type IntentOptional Attributes Name
procedure(juown1_interface) :: proc

Source Code

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