public interface pushnew
returns a new vector adding val to the input vector
but only if val is not already in the input vector.
Module Procedures
private pure function pushnew_i1(vec, val) result(res)
Arguments
Type | Intent | Optional | Attributes | | Name | |
integer(kind=i1), |
intent(in), |
| dimension(:), allocatable | :: |
vec | |
integer(kind=i1), |
intent(in) |
| | :: |
val | |
Return Value integer(kind=i1),dimension(:), allocatable
private pure function pushnew_i2(vec, val) result(res)
Arguments
Type | Intent | Optional | Attributes | | Name | |
integer(kind=i2), |
intent(in), |
| dimension(:), allocatable | :: |
vec | |
integer(kind=i2), |
intent(in) |
| | :: |
val | |
Return Value integer(kind=i2),dimension(:), allocatable
private pure function pushnew_i4(vec, val) result(res)
Arguments
Type | Intent | Optional | Attributes | | Name | |
integer(kind=i4), |
intent(in), |
| dimension(:), allocatable | :: |
vec | |
integer(kind=i4), |
intent(in) |
| | :: |
val | |
Return Value integer(kind=i4),dimension(:), allocatable
private pure function pushnew_i8(vec, val) result(res)
Arguments
Type | Intent | Optional | Attributes | | Name | |
integer(kind=i8), |
intent(in), |
| dimension(:), allocatable | :: |
vec | |
integer(kind=i8), |
intent(in) |
| | :: |
val | |
Return Value integer(kind=i8),dimension(:), allocatable
private pure function pushnew_r4(vec, val) result(res)
Arguments
Type | Intent | Optional | Attributes | | Name | |
real(kind=r4), |
intent(in), |
| dimension(:), allocatable | :: |
vec | |
real(kind=r4), |
intent(in) |
| | :: |
val | |
Return Value real(kind=r4),dimension(:), allocatable
private pure function pushnew_r8(vec, val) result(res)
Arguments
Type | Intent | Optional | Attributes | | Name | |
real(kind=r8), |
intent(in), |
| dimension(:), allocatable | :: |
vec | |
real(kind=r8), |
intent(in) |
| | :: |
val | |
Return Value real(kind=r8),dimension(:), allocatable
private pure function pushnew_r16(vec, val) result(res)
Arguments
Type | Intent | Optional | Attributes | | Name | |
real(kind=r16), |
intent(in), |
| dimension(:), allocatable | :: |
vec | |
real(kind=r16), |
intent(in) |
| | :: |
val | |
Return Value real(kind=r16),dimension(:), allocatable
private pure function pushnew_c4(vec, val) result(res)
Arguments
Type | Intent | Optional | Attributes | | Name | |
complex(kind=r4), |
intent(in), |
| dimension(:), allocatable | :: |
vec | |
complex(kind=r4), |
intent(in) |
| | :: |
val | |
Return Value complex(kind=r4),dimension(:), allocatable
private pure function pushnew_c8(vec, val) result(res)
Arguments
Type | Intent | Optional | Attributes | | Name | |
complex(kind=r8), |
intent(in), |
| dimension(:), allocatable | :: |
vec | |
complex(kind=r8), |
intent(in) |
| | :: |
val | |
Return Value complex(kind=r8),dimension(:), allocatable
private pure function pushnew_c16(vec, val) result(res)
Arguments
Type | Intent | Optional | Attributes | | Name | |
complex(kind=r16), |
intent(in), |
| dimension(:), allocatable | :: |
vec | |
complex(kind=r16), |
intent(in) |
| | :: |
val | |
Return Value complex(kind=r16),dimension(:), allocatable
private pure function pushnew_str(vec, val) result(res)
Arguments
Type | Intent | Optional | Attributes | | Name | |
character, |
intent(in), |
| dimension(:), allocatable | :: |
vec | |
character, |
intent(in) |
| | :: |
val | |
Return Value character,dimension(:), allocatable