*
* $Id: stoascap.F,v 1.1.1.1 1996/03/08 15:21:50 mclareni Exp $
*
* $Log: stoascap.F,v $
* Revision 1.1.1.1  1996/03/08 15:21:50  mclareni
* Epio
*
*
#include "epio/pilot.h"
#if (defined(CERNLIB_APOLLO)||defined(CERNLIB_STF77))&&(!defined(CERNLIB_STF77VX))
      SUBROUTINE STOASC(SOURCE,N1,TARGET,N2,NCH)
C.+++++++ APOLLO VERSION ++++++++++
C. CONVERTS A HOLLERITH STRING FROM INTERNAL ASCII TO
C. EXTERNAL ASCII, I.E. DOES A COPY.
C.
C. THE APOLLO VERSION IS IDENTICAL TO THE APOLLO VERSION OF SFRASC .
C.
C.  PARAMETERS
C.
C.  SOURCE     ARRAY CONTAINING THE INPUT ASCII STRING
C.  N1         FIRST CHARACTER IN SOURCE TO CONVERT
C.  TARGET     ARRAY RECEIVING THE OUTPUT ASCII STRING
C.  N2         FIRST CHARACTER POSITION OF CONVERTED STRING IN TARGET
C.  NCH        NUMBER OF CHARACTERS TO CONVERT
C.
C. THE ROUTINE ALLOWS THE SIMULTANEOUS CONVERSION AND CONCATENATION
C. OF A STRING. ON VAX, IBM ( NOT CDC ! ), SOURCE AND TARGET MAY OVERLAP
C. AS LONG AS N2.LE.N1  .
C.
      LOGICAL*1 K1,K2,SOURCE(NCH),TARGET(NCH)
CFLR  CHARACTER*1 K1,K2,SOURCE(NCH),TARGET(NCH)
      IF(NCH.LE.0)  GOTO 77777
      DO 20  I=1,NCH
   20 TARGET(N2+I-1)=SOURCE(N1+I-1)
77777 RETURN
      END
#endif