MINICERN/packlib/kernlib/kerngen/tcgens/iusame.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:50:11  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10       FUNCTION IUSAME (IA,JST,N,MIN,JSAME)
  11 C
  12 C CERN PROGLIB# M501    IUSAME          .VERSION KERNFOR  1.0   710701
  13 C ORIG. 01/07/71 CL
  14 C
  15       DIMENSION IA(*)
  16 C
  17 C
  18       J  = JST
  19    21 NSM= 0
  20       JSM= J
  21 C
  22    24 NSM= NSM + 1
  23       IF (J.EQ.N)  GO TO 31
  24       J = J + 1
  25       IF (IA(J).EQ.IA(J-1))  GO TO 24
  26 C
  27       IF (NSM.LT.MIN)  GO TO 21
  28       GO TO 32
  29 C
  30    31 IF (NSM.GE.MIN)  GO TO 32
  31       NSM= 0
  32       JSM= N + 1
  33    32 IUSAME=NSM
  34       JSAME= JSM
  35       RETURN
  36       END