SUBROUTINE CH_PUTELEX(KHR,PVALUES,PPROF
     &                  ,KNELE,KNLVLS,KNT,KIND)
      IMPLICIT NONE
*
      INTEGER KHR
      INTEGER KNELE,KNLVLS,KNT,KIND
*
      REAL*8 PVALUES(KNELE,KNLVLS,KNT),PPROF(KNLVLS)
*
#if defined (DOC)
************************************************************************
*
*      PURPOSE: TO SAVE THE VERTICAL PROFILE OF AN ELEMENT
*               IN A 3-D BLOCK OF DATA TO BE PLACED IN A BURP FILE
*
*       AUTHOR: Y.J. Rochon *ARQX/MSC May 2005
*               (starting from PUTELE by P. KOCLAS (CMC TEL. 4665))
*
*       Revision: 
*                 Y.J. Rochon *ARQX/MSC May 2005
*                 - Place profile at location specified by KIND
*
*       ARGUMENTS:
*               INPUT:
*                      -KHR     : SPECIFIED THIRD DIMENSION VALUE
*                      -PPROF   : PROFILE FOR STORAGE
*                      -KNELE   : NUMBER OF ELEMENTS IN DATA BLOCK
*                      -KNLVLS  : NUMBER OF LEVELS IN DATA BLOCK
*                      -KNT     : THIRD DIMENSION OF DATA BLOCK
*                      -KIND    : ELEMENT INDEX AT WHICH
*                                 PPROF IS STORED
*               OUTPUT:
*                      -PVALUES : DATA BLOCK
*
************************************************************************
#endif
*
      INTEGER JJ
*
*************************************************************************
*
      DO JJ=1,KNLVLS
         PVALUES(KIND,JJ,KHR)=PPROF(JJ)
      END DO
*
      RETURN
*
      END