MINICERN/packlib/kernlib/kerngen/xvect/irtngs/xinbs.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 XINBS (LUN,XAV,NA,XBV,NXB)
  10 C
  11 C CERN PROGLIB# Z203    XINBS           .VERSION KERNIRT  1.01  900319
  12 C
  13       COMMON /SLATE/ NXR, DUMMY(39)
  14       DIMENSION    XBV(NXB), XAV(NA)
  15 C
  16       READ (LUN,IOSTAT=JSTAT,NUM=NBYTES) NR,XAV,XBV
  17       IF   (JSTAT)                 61, 24, 64
  18    24 NXR = NR
  19       NR  = MIN (NR,NXB)
  20       NXB = MAX (NR,1)
  21       RETURN
  22 C
  23    61 NXB = 0
  24       RETURN
  25 C
  26    64 NXB = -JSTAT
  27       READ (LUN) N
  28       RETURN
  29       END