*
* $Id: xin123.F,v 1.1.1.1 1996/02/15 17:53:28 mclareni Exp $
*
* $Log: xin123.F,v $
* Revision 1.1.1.1  1996/02/15 17:53:28  mclareni
* Kernlib
*
*
#include "sys/CERNLIB_machine.h"
#include "pilot.h"
      SUBROUTINE XIN123 (LUN,IPAR,A,N)
C
C
C-    ROUTINE COMMON TO THE BASIC AND THE EXTENDED X-PACKAGE.
C
      DIMENSION A(N)
      DATA  LBCD/14/                                                    A10
C     DATA  LBCD/17/                                                    A8
C     DATA  LBCD/22/                                                    A6
C     DATA  LBCD/27/                                                    A5
C     DATA  LBCD/34/                                                    A4
C
C
      IF (IPAR) 99,20,10
   10 READ (LUN) A
      RETURN
C
   20 IF (N.LE.LBCD)  GO TO 22
      READ (LUN,1000) (A(J),J=1,LBCD)
      RETURN
C
   22 READ (LUN,1000) A
   99 RETURN
C
 1000 FORMAT (13A10,A6)                                                 A10
C1000 FORMAT (20A8)                                                     A8
C1000 FORMAT (30A6)                                                     A6
C1000 FORMAT (27A5)                                                     A5
C1000 FORMAT (33A4)                                                     A4
C
C
C-  USING THE 'SHORT LIST' FORM OF I/O IS 10 TIMES FASTER WITH SIPROS
C-  THAN USING THE 'LONG LIST' FORM     READ (LUN) (A(J),J=JA,JE)
      END