[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / rz / rzsame.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:26  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      LOGICAL FUNCTION RZSAME(IH1,IH2,N)
************************************************************************
*
*        To compare two hollerith strings
* Input:
*   IH1,IH2 two arrays of length N to be compared
*
* Called by RZDELT,RZEND,RZFDIR,RZMDIR
*
*  Author  : R.Brun DD/US/PD
*  Written : 01.04.86
*  Last mod: 01.04.86
*
************************************************************************
      DIMENSION IH1(N),IH2(N)
*
*-----------------------------------------------------------------------
*
      IF(N.LE.0)GO TO 20
*
      DO 10 I=1,N
         IF(IH1(I).NE.IH2(I))GO TO 20
  10  CONTINUE
      RZSAME=.TRUE.
      GO TO 99
*
  20  RZSAME=.FALSE.
*
  99  RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/03/06 10:47:26 mclareni
	6	* Zebra
	7	*
	8	*
	9	#include "zebra/pilot.h"
	10	LOGICAL FUNCTION RZSAME(IH1,IH2,N)
	11	************************************************************************
	12	*
	13	* To compare two hollerith strings
	14	* Input:
	15	* IH1,IH2 two arrays of length N to be compared
	16	*
	17	* Called by RZDELT,RZEND,RZFDIR,RZMDIR
	18	*
	19	* Author : R.Brun DD/US/PD
	20	* Written : 01.04.86
	21	* Last mod: 01.04.86
	22	*
	23	************************************************************************
	24	DIMENSION IH1(N),IH2(N)
	25	*
	26	*-----------------------------------------------------------------------
	27	*
	28	IF(N.LE.0)GO TO 20
	29	*
	30	DO 10 I=1,N
	31	IF(IH1(I).NE.IH2(I))GO TO 20
	32	10 CONTINUE
	33	RZSAME=.TRUE.
	34	GO TO 99
	35	*
	36	20 RZSAME=.FALSE.
	37	*
	38	99 RETURN
	39	END