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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/02/15 17:50:34  mclareni
* Kernlib
*
*
#include "kerngen/pilot.h"
      SUBROUTINE XINCF (LUN,XBV,NXB)
C
C CERN PROGLIB# Z203    XINCF           .VERSION KERNFOR  3.15  820113
C ORIG. 15/07/78 JZ
C
      DIMENSION    XBV(NXB)
C
      READ (LUN,8000,END=61,ERR=64) XBV
      RETURN
C
   61 NXB = 0
      RETURN
C
   64 NXB = -7
      RETURN
C
#if defined(CERNLIB_A4)
 8000 FORMAT (35A4)
#endif
#if defined(CERNLIB_A5)
 8000 FORMAT (28A5)
#endif
#if defined(CERNLIB_A6)
 8000 FORMAT (23A6)
#endif
#if defined(CERNLIB_A8)
 8000 FORMAT (16A8)
#endif
#if defined(CERNLIB_A10)
 8000 FORMAT (14A10)
#endif
      END
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	SUBROUTINE XINCF (LUN,XBV,NXB)
	11	C
	12	C CERN PROGLIB# Z203 XINCF .VERSION KERNFOR 3.15 820113
	13	C ORIG. 15/07/78 JZ
	14	C
	15	DIMENSION XBV(NXB)
	16	C
	17	READ (LUN,8000,END=61,ERR=64) XBV
	18	RETURN
	19	C
	20	61 NXB = 0
	21	RETURN
	22	C
	23	64 NXB = -7
	24	RETURN
	25	C
	26	#if defined(CERNLIB_A4)
	27	8000 FORMAT (35A4)
	28	#endif
	29	#if defined(CERNLIB_A5)
	30	8000 FORMAT (28A5)
	31	#endif
	32	#if defined(CERNLIB_A6)
	33	8000 FORMAT (23A6)
	34	#endif
	35	#if defined(CERNLIB_A8)
	36	8000 FORMAT (16A8)
	37	#endif
	38	#if defined(CERNLIB_A10)
	39	8000 FORMAT (14A10)
	40	#endif
	41	END