[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgen / ccopyr.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/02/15 17:49:42  mclareni
* Kernlib
*
*
#include "kerngen/pilot.h"
      SUBROUTINE CCOPYR (FR,TO,NCH)
C
C CERN PROGLIB# M432    CCOPYR          .VERSION KERNFOR  4.39  940228
C ORIG. 08/10/91, JZ
C
C-    Copy NCH characters from FR to TO shifting right

      CHARACTER    FR(512)*1, TO(512)*1

      DO 24  J=NCH,1,-1
   24 TO(J) = FR(J)
      RETURN
      END
Commit	Line	Data
fe4da5cc	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 CCOPYR (FR,TO,NCH)
	11	C
	12	C CERN PROGLIB# M432 CCOPYR .VERSION KERNFOR 4.39 940228
	13	C ORIG. 08/10/91, JZ
	14	C
	15	C- Copy NCH characters from FR to TO shifting right
	16
	17	CHARACTER FR(512)1, TO(512)1
	18
	19	DO 24 J=NCH,1,-1
	20	24 TO(J) = FR(J)
	21	RETURN
	22	END