ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE_old/src/mdtools/libmdCode/vector_class.F90
(Generate patch)

Comparing trunk/OOPSE_old/src/mdtools/libmdCode/vector_class.F90 (file contents):
Revision 313 by gezelter, Tue Mar 11 18:51:05 2003 UTC vs.
Revision 314 by gezelter, Tue Mar 11 19:01:19 2003 UTC

# Line 179 | Line 179 | contains
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.

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines