set_die_routine Subroutine

public subroutine set_die_routine(func)

Arguments

Type	Intent	Optional	Attributes		Name
procedure(psml_die_interf)				::	func

Contents

Source Code

set_die_routine

Source Code

  subroutine set_die_routine(func)

    procedure(psml_die_interf) :: func

    psml_die => func

  end subroutine set_die_routine