C REPEC2    SOURCE    CB215821  20/11/25    13:39:00     10792          
      SUBROUTINE REPEC2(ITAB1,imo1,ICHP1)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
-INC PPARAM
-INC CCOPTIO
-INC CCREEL
-INC SMCHPOI
-INC SMLREEL
      LOGICAL L0,L1
*                  1      2      3      4      5
*      DATA MOOPT/'DEPL','CONT','VITE','ACCE','REAC'/

         ICHP1=0
         call lirree(val,0,ire1)
         CALL ACCTAB(ITAB1,'MOT',I0,X0,'TEMPS',L0,IP0,
     &                'TABLE',I1,X1,' ',L1,ITABT)

         call dimen7(itabt,NDIM)
         if (imo1.eq.1) CALL ACCTAB(ITAB1,'MOT',I0,X0,
     &'DEPLACEMENTS',L0,IP0,'TABLE',I1,X1,' ',L1,ITAB2)
          if (imo1.eq.2) CALL ACCTAB(ITAB1,'MOT',I0,X0,
     &'CONTRAINTES',L0,IP0,'TABLE',I1,X1,' ',L1,ITAB2)
         if (imo1.eq.3) CALL ACCTAB(ITAB1,'MOT',I0,X0,
     &'VITESSES',L0,IP0,'TABLE',I1,X1,' ',L1,ITAB2)
         if (imo1.eq.4) CALL ACCTAB(ITAB1,'MOT',I0,X0,
     &'ACCELERATIONS',L0,IP0,'TABLE',I1,X1,' ',L1,ITAB2)
         if (imo1.eq.5) CALL ACCTAB(ITAB1,'MOT',I0,X0,
     &'REACTIONS',L0,IP0,'TABLE',I1,X1,' ',L1,ITAB2)
           if (ierr.ne.0) return

        ISUCCES = 0
       if (ire1.gt.0) then
        ICOMP = -1
         CALL ACCTAB(ITABT,'ENTIER',(NDIM - 1),X0,' ',L0,IP0,
     &                'FLOTTANT',I1,X1,' ',L1,IP1)
        VALREF = X1 * 1.E-6
        DO IBOUC = 1,NDIM
         ICOMP = ICOMP + 1
         CALL ACCTAB(ITABT,'ENTIER',ICOMP,X0,' ',L0,IP0,
     &                'FLOTTANT',I1,VAL1,' ',L1,IP1)
          if (ABS(val - val1).le. valref) then
         CALL ACCTAB(ITAB2,'ENTIER',ICOMP,X0,' ',L0,IP0,
     &                'CHPOINT',I1,VAL1,' ',L1,ICHP1)
           ISUCCES = 1
c         write(6,*)'ON A TROUVE UN RESULTAT AU TEMPS ', VAL1
          RETURN
          endif
        ENDDO
       else
         CALL ACCTAB(ITAB2,'ENTIER',(NDIM-1),X0,' ',L0,IP0,
     &                'CHPOINT',I1,VAL1,' ',L1,ICHP1)
         ISUCCES = 1
       endif

       if (ISUCCES.EQ.0) then
        call erreur(-10)
*       'ERREUR' '*** On n a pas trouve le résultat cherché.'
       endif
       return
       end