[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / xvect / xinbs.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/02/15 17:50:34  mclareni
* Kernlib
*
*
#include "kerngen/pilot.h"
#if defined(CERNLIB_QMMPW)
#include "mpwgs/xinbs.F"
#elif defined(CERNLIB_QMVAX)
#include "vaxgs/xinbs.F"
#elif defined(CERNLIB_QMIRT)
#include "irtngs/xinbs.F"
#elif defined(CERNLIB_QMIRTD)
#include "irtdgs/xinbs.F"
#else
      SUBROUTINE XINBS (LUN,XAV,NA,XBV,NXB)
C
C CERN PROGLIB# Z203    XINBS           .VERSION KERNFOR  4.31  911111
C ORIG. 15/07/78 JZ
C
      COMMON /SLATE/ NXR, DUMMY(39)
      DIMENSION    XBV(*), XAV(NA)
C
      READ (LUN,IOSTAT=JSTAT) NR,XAV,(XBV(J),J=1,MIN(NR,NXB))
      IF    (JSTAT)          61, 24, 64
   24 NXR = NR
      NR  = MIN(NR,NXB)
      NXB = MAX(1,NR)
      RETURN
C
   61 NXB = 0
      RETURN
C
   64 NXB = -JSTAT
      RETURN
      END
#endif
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/02/15 17:50:34 mclareni
	6	* Kernlib
	7	*
	8	*
	9	#include "kerngen/pilot.h"
	10	#if defined(CERNLIB_QMMPW)
	11	#include "mpwgs/xinbs.F"
	12	#elif defined(CERNLIB_QMVAX)
	13	#include "vaxgs/xinbs.F"
	14	#elif defined(CERNLIB_QMIRT)
	15	#include "irtngs/xinbs.F"
	16	#elif defined(CERNLIB_QMIRTD)
	17	#include "irtdgs/xinbs.F"
	18	#else
	19	SUBROUTINE XINBS (LUN,XAV,NA,XBV,NXB)
	20	C
	21	C CERN PROGLIB# Z203 XINBS .VERSION KERNFOR 4.31 911111
	22	C ORIG. 15/07/78 JZ
	23	C
	24	COMMON /SLATE/ NXR, DUMMY(39)
	25	DIMENSION XBV(*), XAV(NA)
	26	C
	27	READ (LUN,IOSTAT=JSTAT) NR,XAV,(XBV(J),J=1,MIN(NR,NXB))
	28	IF (JSTAT) 61, 24, 64
	29	24 NXR = NR
	30	NR = MIN(NR,NXB)
	31	NXB = MAX(1,NR)
	32	RETURN
	33	C
	34	61 NXB = 0
	35	RETURN
	36	C
	37	64 NXB = -JSTAT
	38	RETURN
	39	END
	40	#endif