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