MINICERN/packlib/kernlib/kerngen/xvect/vaxgs/xinb.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:50:36  mclareni
   6 * Kernlib
   7 *
   8 *
   9       SUBROUTINE XINB  (LUN,XBV,NXB)
  10 C
  11 C CERN PROGLIB# Z203    XINB            .VERSION KERNVAX  2.29  880809
  12 C ORIG.  8/02/88  JZ
  13 C
  14       COMMON /SLATE/ NXR, DUMMY(39)
  15       DIMENSION    XBV(99)
  16
  17       READ (LUN,IOSTAT=JSTAT) NR, (XBV(J),J=1,MIN(NR,NXB))
  18       IF   (JSTAT)           61, 24, 64
  19    24 NXR = NR
  20       NR  = MIN (NR,NXB)
  21       NXB = MAX (NR,1)
  22       RETURN
  23
  24    61 NXB = 0
  25       RETURN
  26
  27    64 NXB = -JSTAT
  28       RETURN
  29       END