C PLACHA    SOURCE    PV        09/03/12    21:30:23     6325           
      SUBROUTINE PLACHA(IPCHAM,TICHAM,NTI,IPLA)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
*--------------------------------------------------------------------*
*                                                                    *
*     A partir d'un pointeur de MCHAML, PLACHA retourne la position  *
*     IPLA du titre du MCHAML dans le tableau TICHAM. IPLA est nul   *
*     si la recherche est negative.                                  *
*                                                                    *
*--------------------------------------------------------------------*
*                                                                    *
*     Entrees:                                                       *
*                                                                    *
*        IPCHAM    pointeur sur un MCHAML inconnu                    *
*        TICHAM    tableau de titre de MCHAML                        *
*        NTI       dimension de ce tableau                           *
*                                                                    *
*     Sorties:                                                       *
*                                                                    *
*        IPLA      rang dans le tableau                              *
*                                                                    *
*     PP 29/8/91                                                     *
*--------------------------------------------------------------------*
-INC SMCHAML
-INC CCOPTIO
*
      CHARACTER*(*) TICHAM(NTI)
*
      MCHELM=IPCHAM
      SEGACT,MCHELM
      LTIT=TITCHE(/1)
      DO 1 IE1=NTI,1,-1
        IF (TITCHE.EQ.TICHAM(IE1)(1:LTIT)) GOTO 2
 1    CONTINUE
 2    IPLA=IE1
*
      SEGDES,MCHELM
*
      RETURN
      END