MINICERN/packlib/kernlib/kerngen/xvect/irtdgs/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 KERNIRT  1.06  930811
  12 C
  13       COMMON /SLATE/ NXR, DUMMY(39)
  14       DIMENSION    XBV(NXB)
  15 C
  16       REAL XNR
  17       INTEGER NR
  18       EQUIVALENCE (XNR,NR)
  19       READ (LUN,IOSTAT=JSTAT,NUM=NBYTES) XNR,XBV
  20       IF   (JSTAT)                 61, 24, 64
  21    24 NXR = NR
  22       NR  = MIN (NR,NXB)
  23       NXB = MAX (NR,1)
  24       RETURN
  25 C
  26    61 NXB = 0
  27       RETURN
  28 C
  29    64 NXB = -JSTAT
  30       READ (LUN) NR
  31       RETURN
  32       END