*
* $Id: cfribmva.F,v 1.1.1.1 1996/03/08 15:21:49 mclareni Exp $
*
* $Log: cfribmva.F,v $
* Revision 1.1.1.1  1996/03/08 15:21:49  mclareni
* Epio
*
*
#include "epio/pilot.h"
#if defined(CERNLIB_VAX)
      SUBROUTINE CFRIBM(IARRAY,NW,MODE)
C.+++++++ VAX VERSION ++++++++++
C. CONVERTS THE FIRST NW WORDS OF IARRAY FROM IBM TO MACHINE FORMAT.
C. THE NUMBERS MUST BE RIGHT ADJ., ZERO FILLED.
C. MODE = 1 : CONVERT 16 BIT INTEGERS
C.      = 2 : CONVERT 32 BIT INTEGERS
C.      = 3 : CONVERT 32 BIT FLOATING
C. MODE = 6 : CONVERT 32 BIT UNSIGNED INTEGERS
      DIMENSION IARRAY(1)
      IF(NW.LE.0)  GOTO 77777
      MMODE=MODE
      IF(MODE.EQ.6)  MMODE=2
           CALL CVT360(IARRAY(1),IARRAY(NW),3-MMODE)
77777 RETURN
      END
#endif