*
* $Id: ie3tod.F,v 1.1.1.1 1996/02/15 17:49:57 mclareni Exp $
*
* $Log: ie3tod.F,v $
* Revision 1.1.1.1  1996/02/15 17:49:57  mclareni
* Kernlib
*
*
@PROCESS AUTODBL(NONE)
         SUBROUTINE IE3TOD(VIEEE,VINT,NV,JCODE)
         INTEGER VIEEE(4*NV),VINT(4*NV)
         DO I=1,NV
          I1 = (I-1)*4 + 1
          I2 = (I-1)*4 + 2
          I3 = (I-1)*4 + 3
          VINT(I1) = VIEEE(I1)
          VINT(I2) = VIEEE(I3)
         ENDDO
         END