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

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:42  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10       SUBROUTINE CCOPIV (FR,TO,NCH)
  11 C
  12 C CERN PROGLIB# M432    CCOPIV          .VERSION KERNFOR  4.39  940228
  13 C ORIG. 20/01/93, JZ
  14 C
  15 C-    Copy NCH characters from FR to TO inverted
  16
  17       CHARACTER    FR(512)*1, TO(512)*1
  18
  19       DO 24  J=1,NCH
  20    24 TO(J) = FR(NCH+1-J)
  21       RETURN
  22       END