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

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:45  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10       FUNCTION ICFNBL (CHV,JLP,JRP)
  11 C
  12 C CERN PROGLIB# M432    ICFNBL          .VERSION KERNFOR  4.21  890323
  13 C ORIG. 04/10/88, JZ
  14 C
  15 C-    Find first non-blank character in CHV(JL:JR)
  16
  17       DIMENSION    JLP(9), JRP(9)
  18
  19       COMMON /SLATE/ NDSLAT,NESLAT,NFSLAT,NGSLAT, DUMMY(36)
  20       CHARACTER    CHV*(*)
  21
  22       JJ = JLP(1)
  23       JR = JRP(1)
  24
  25    12 IF (JJ.GT.JR)          GO TO 19
  26       IF (CHV(JJ:JJ).EQ.' ')  THEN
  27           JJ = JJ + 1
  28           GO TO 12
  29         ENDIF
  30       NGSLAT = JJ
  31       ICFNBL = JJ
  32       RETURN
  33
  34    19 NGSLAT = 0
  35       ICFNBL = JJ
  36       RETURN
  37       END