179 |
|
MatchName2, MatchValue2, nMatches, MatchList) |
180 |
|
type(Vector), pointer :: this |
181 |
|
character(len=*), intent(in) :: MatchName1, MatchName2 |
182 |
< |
integer, intent(in) :: MatchValue1, MatchValue2 |
183 |
< |
integer, intent(out) :: nMatches |
184 |
< |
integer, pointer :: MatchList |
182 |
> |
integer, intent(in) :: MatchValue1, MatchValue2 |
183 |
> |
integer, intent(out) :: nMatches |
184 |
> |
integer, pointer :: MatchList(:) |
185 |
|
integer :: i, MatchID1, MatchID2 |
186 |
|
logical :: found1 = .false. |
187 |
|
logical :: found2 = .false. |