MINICERN/packlib/kernlib/kerngen/tcgen/icequ.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:44  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10       FUNCTION ICEQU (CHXA, CHXB, NTX)
  11 C
  12 C CERN PROGLIB# M432    ICEQU           .VERSION KERNFOR  4.39  940228
  13 C ORIG. 08/11/93, JZ
  14 C
  15 C-    Check CHXA and CHXB are identical, return zero if so
  16
  17       CHARACTER    CHXA(512)*1, CHXB(512)*1
  18
  19
  20       DO 16  JJ=1,NTX
  21       IF (CHXA(JJ).NE.CHXB(JJ))    GO TO 19
  22    16 CONTINUE
  23       ICEQU = 0
  24       RETURN
  25
  26    19 ICEQU = JJ
  27       RETURN
  28       END