Sources Esope | Cast3M

chrmot
C CHRMOT    SOURCE    CHAT      05/01/12    22:02:05     5004
      SUBROUTINE CHRMOT(IMOT,LMOT,MOT,IRET)
C
C    CHERCHE LE MOT 'MOT', DANS LE TABLEAU IMOT DE LONGUEUR LMOT
C    ECRIT PAR FARVACQUE EN FORTRAN
C
      IMPLICIT INTEGER(I-N)
      CHARACTER*4    IMOT(*)
      CHARACTER*4     MOT
      IRET=0
      DO 1 I=1,LMOT
      IF(IMOT(I).NE.MOT) GOTO 1
      IRET=I
      GOTO 2
   1  CONTINUE
   2  CONTINUE
      RETURN
      END