MINICERN/packlib/kernlib/kerngen/tcgen/udicop.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:51  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10       SUBROUTINE UDICOP(A,B,IDO,IW,NA,NB)
  11 C
  12 C CERN PROGLIB# V302    UDICOP          .VERSION KERNFOR  4.40  940929
  13 C ORIG. 01/07/71
  14 C
  15 #if defined(CERNLIB_QINTCOPY)
  16       INTEGER   A(*),B(*)
  17 #endif
  18 #if !defined(CERNLIB_QINTCOPY)
  19       DIMENSION A(*),B(*)
  20 #endif
  21 C
  22 C
  23       IF (IDO.EQ.0) RETURN
  24       IF (IW.EQ.0) RETURN
  25       K=IW+(IDO-1)*NA
  26       L=IW+(IDO-1)*NB
  27       KK=NA-IW
  28       LL=NB-IW
  29          DO 40 I=1,IDO
  30          DO 30 J=1,IW
  31       B(L)=A(K)
  32       K=K-1
  33    30 L=L-1
  34       K=K-KK
  35    40 L=L-LL
  36       RETURN
  37       END