*
* $Id: ctoibmib.F,v 1.1.1.1 1996/03/08 15:21:51 mclareni Exp $
*
* $Log: ctoibmib.F,v $
* Revision 1.1.1.1  1996/03/08 15:21:51  mclareni
* Epio
*
*
#include "epio/pilot.h"
#if defined(CERNLIB_IBM)
      SUBROUTINE CTOIBM(IARRAY,NW,MODE)
C.+++++++ IBM VERSION ++++++++++
C. CONVERTS THE FIRST NW WORDS OF IARRAY INTO IBM FORMAT.
C. MODE = 1 : CONVERT TO 16 BIT INTEGERS (RIGHT ADJ. ZERO FILLED)
C.      = 2 : CONVERT TO 32 BIT INTEGERS (DUMMY IB IBM VERSION)
C.      = 3 : CONVERT TO 32 BIT FLOATING (DUMMY IN IBM VERSION)
C. ON RETURN,THE CONVERTED NUMBERS ARE IN IARRAY,RIGHT ADJ., ZERO FILLED
      DIMENSION IARRAY( 1)
      INTEGER*2 IW2(2)
      EQUIVALENCE (IW2(1),IW4)
      IF(MODE.NE.1)  GOTO 77777
      IF(NW.LE.0)  GOTO 77777
      IW4=0
      DO 1  I=1,NW
      IW2(2)=IARRAY(I)
    1 IARRAY(I)=IW4
77777 RETURN
      END
#endif