append_uniq Interface

public interface append_uniq

Module Procedures

private subroutine append_uniq_i(arr, new)

Append unique element "new" to array "arr"

Arguments

Type IntentOptional Attributes Name
integer, intent(inout), allocatable :: arr(:)
integer, intent(in) :: new

private pure module subroutine append_uniq_transition(old, new)

Append unique element "new" to array "old"

Arguments

Type IntentOptional Attributes Name
type(asymtop_rot_transition_type), intent(inout), allocatable :: old(:)
type(asymtop_rot_transition_type), intent(in) :: new(:)