All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Groups
pxsame.f
Go to the documentation of this file.
1 CDECK ID>, PXSAME.
2 ******............................................................******
3  LOGICAL FUNCTION pxsame(LIST1,LIST2,N)
4 ******............................................................******
5  IMPLICIT NONE
6 *
7  LOGICAL list1(*),list2(*)
8  INTEGER n
9 *** Returns T if the first N elements of LIST1 are the same as the
10 *** first N elements of LIST2.
11  INTEGER i
12 *
13  pxsame = .true.
14  DO 100 i = 1,n
15  IF ( list1(i).NEQV.list2(i) ) THEN
16  pxsame = .false.
17  RETURN
18  ENDIF
19 100 CONTINUE
20  RETURN
21  END
pxsame
LOGICAL function pxsame(LIST1, LIST2, N)
Definition: pxsame.f:3