Esope source files

   1 : C PLACHA    SOURCE    PV        09/03/12    21:30:23     6325           
   2 :       SUBROUTINE PLACHA(IPCHAM,TICHAM,NTI,IPLA)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)
   5 : *--------------------------------------------------------------------*
   6 : *                                                                    *
   7 : *     A partir d'un pointeur de MCHAML, PLACHA retourne la position  *
   8 : *     IPLA du titre du MCHAML dans le tableau TICHAM. IPLA est nul   *
   9 : *     si la recherche est negative.                                  *
  10 : *                                                                    *
  11 : *--------------------------------------------------------------------*
  12 : *                                                                    *
  13 : *     Entrees:                                                       *
  14 : *                                                                    *
  15 : *        IPCHAM    pointeur sur un MCHAML inconnu                    *
  16 : *        TICHAM    tableau de titre de MCHAML                        *
  17 : *        NTI       dimension de ce tableau                           *
  18 : *                                                                    *
  19 : *     Sorties:                                                       *
  20 : *                                                                    *
  21 : *        IPLA      rang dans le tableau                              *
  22 : *                                                                    *
  23 : *     PP 29/8/91                                                     *
  24 : *--------------------------------------------------------------------*
  25 : -INC SMCHAML
  26 : -INC CCOPTIO
  27 : *
  28 :       CHARACTER*(*) TICHAM(NTI)
  29 : *
  30 :       MCHELM=IPCHAM
  31 :       SEGACT,MCHELM
  32 :       LTIT=TITCHE(/1)
  33 :       DO 1 IE1=NTI,1,-1
  34 :         IF (TITCHE.EQ.TICHAM(IE1)(1:LTIT)) GOTO 2
  35 :  1    CONTINUE
  36 :  2    IPLA=IE1
  37 : *
  38 :       SEGDES,MCHELM
  39 : *
  40 :       RETURN
  41 :       END
  42 :  
  43 :  
  44 :  
  45 :