set_usersub Subroutine

public subroutine set_usersub(proc)

Arguments

Type	Intent	Optional	Attributes		Name
procedure(usersub_interface)				::	proc

Contents

Source Code

set_usersub

Source Code

subroutine set_usersub(proc)
procedure(usersub_interface) :: proc
   usersub => proc
end subroutine set_usersub