Sources Esope | Cast3M

place5
C PLACE5    SOURCE    CHAT      05/01/13    02:14:39     5004
C PLACE5    SOURCE    THERY     88/01/13    21:24:10
      SUBROUTINE PLACE5(TABMOT,LTABMO,IDANS,CMOT)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
************************************************************************
*
*                             P L A C E 5
*                             -----------
*
* FONCTION:
* ---------
*     ON VEUT SAVOIR SI UN MOT APPARTIENT OU NON A UN TABLEAU
*     DE MOTS,LE RESULTAT EST LA POSITION DU MOT.
*     LE MOT EST DE 4 LETTRES ET LA LISTE AUSSI.
*
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
* -----------
*
*     TABMOT  (E)  TABLEAU DE MOTS
*     LTABMO  (E)  LONGUEUR DE CE TABLEAU
*     IDANS   (S)  POSITION DE L'ENTIER,SI ON L'A TROUVE (=0 SINON)
*     CMOT    (E)  MOT QUE L'ON CHERCHE
*
       CHARACTER*4 TABMOT(*),CMOT
*
* AUTEUR, DATE DE CREATION:
* -------------------------
*
*     SAMUEL DURAND,LE 09 SEPTEMBRE 1996.
*
* LANGAGE:
* --------
*
*             FORTRAN77
*
************************************************************************
*
      IDANS=0
*
      DO 10 IPOS=1,LTABMO
         IF (CMOT.EQ.TABMOT(IPOS)) THEN
            IDANS=IPOS
            RETURN
         ENDIF
 10      CONTINUE
*     END DO
*
      END