var/external/bufr/chrtrn.f

   1       SUBROUTINE CHRTRN(STR,CHR,N)
   2
   3 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
   4 C
   5 C SUBPROGRAM:    CHRTRN
   6 C   PRGMMR: WOOLLEN          ORG: NP20       DATE: 1994-01-06
   7 C
   8 C ABSTRACT: THIS SUBROUTINE COPIES A SPECIFIED NUMBER OF CHARACTERS
   9 C   FROM A CHARACTER ARRAY INTO A CHARACTER STRING.
  10 C
  11 C PROGRAM HISTORY LOG:
  12 C 1994-01-06  J. WOOLLEN -- ORIGINAL AUTHOR
  13 C 2003-11-04  J. ATOR    -- ADDED DOCUMENTATION
  14 C 2003-11-04  S. BENDER  -- ADDED REMARKS/BUFRLIB ROUTINE
  15 C                           INTERDEPENDENCIES
  16 C 2003-11-04  D. KEYSER  -- UNIFIED/PORTABLE FOR WRF; ADDED HISTORY
  17 C                           DOCUMENTATION
  18 C
  19 C USAGE:    CALL CHRTRN (STR, CHR, N)
  20 C   INPUT ARGUMENT LIST:
  21 C     CHR      - CHARACTER*1: N-WORD CHARACTER ARRAY
  22 C     N        - INTEGER: NUMBER OF CHARACTERS TO COPY
  23 C
  24 C   OUTPUT ARGUMENT LIST:
  25 C     STR      - CHARACTER*(*): CHARACTER STRING
  26 C
  27 C REMARKS:
  28 C    THIS ROUTINE CALLS:        None
  29 C    THIS ROUTINE IS CALLED BY: STBFDX
  30 C                               Normally not called by any application
  31 C                               programs but it could be.
  32 C
  33 C ATTRIBUTES:
  34 C   LANGUAGE: FORTRAN 77
  35 C   MACHINE:  PORTABLE TO ALL PLATFORMS
  36 C
  37 C$$$
  38
  39       CHARACTER*(*) STR
  40       CHARACTER*1   CHR(N)
  41
  42 C----------------------------------------------------------------------
  43 C----------------------------------------------------------------------
  44       DO I=1,N
  45       STR(I:I) = CHR(I)
  46       ENDDO
  47       RETURN
  48       END