MINICERN/packlib/kernlib/kerngen/tcgen/irtdgs/ie3tod.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:57  mclareni
   6 * Kernlib
   7 *
   8 *
   9 @PROCESS AUTODBL(NONE)
  10          SUBROUTINE IE3TOD(VIEEE,VINT,NV,JCODE)
  11          INTEGER VIEEE(4*NV),VINT(4*NV)
  12          DO I=1,NV
  13           I1 = (I-1)*4 + 1
  14           I2 = (I-1)*4 + 2
  15           I3 = (I-1)*4 + 3
  16           VINT(I1) = VIEEE(I1)
  17           VINT(I2) = VIEEE(I3)
  18          ENDDO
  19          END