C DEPIM2    SOURCE    CB215821  16/04/15    21:15:09     8907
      SUBROUTINE DEPIM2(IPT)
      IMPLICIT INTEGER(I-N)
      CHARACTER*4 charm,charre
      REAL*8 XXA,vval,X0,X1

-INC PPARAM
-INC CCOPTIO
-INC SMTABLE

      IPO=0

      mtable = ipt
      segact mtable
      ima = mlotab - 1
c     if (ima.eq.1) RETURN

      do 1200 im = 1,ima
           CALL ACCTAB(IPT,'ENTIER',IM,0.d0,' ',.true.,IP0,
     &                   'TABLE',I1,X1,CHARRE,.true.,ITMOD)
           if (ierr.ne.0) return
           CALL ACCTAB(ITMOD,'MOT',I0,X0,'BLOCAGE',.true.,IP0,
     &                      'RIGIDITE',I1,X1,charre,.true.,IR1)
           if (ir1.lt.0) goto 1200
           if (ierr.ne.0) return
*
         call ecrree(1.d0)
         call ecrobj('RIGIDITE',ir1)
         call depimp
         call lirobj('CHPOINT',ichpoi,1, iretou)
         if (ierr.ne.0) return

           CALL ECCTAB(ITMOD,'MOT',0,0.0D0,'FORCE',.TRUE.,IPO,
     &        'CHPOINT',0,0.0D0,' ',.TRUE.,ichpoi)

 1200 continue
c
c
      RETURN
      END