C MUCPLI    SOURCE    CHAT      09/10/09    21:21:17     6519           
      subroutine mucpli(lmchpo1,mrigid,lmchpo)
C                                                                               
C  ****  multiplication d'une matrice(mrigid) par une suite de champoin (lmchpo1)
C  ****  le resultat est une liste de champoin (lmchpoi).
C  ****  iret=ire2*ire1                                                         
C  ****  les champpoint resultat ont la meme dimension que la matrice.             
C          
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
-INC CCOPTIO
-INC SMLCHPO
-INC SMCHPOI
-INC SMRIGID
-INC SMCOORD

      MLCHP1 = lmchpo1 
      segact mlchp1
      n1 = mlchp1.ichpoi(/1)

      if (n1.le.0) call erreur(3)
      if (ierr.ne.0) return

      mchpo1 = mlchp1.ichpoi(1)
      segini mlchpo
      lmchpo = mlchpo
      call mucpri(mchpo1,mrigid,mchpoi)
      if (ierr.ne.0) return

      ichpoi(1) = mchpoi

      do ic = 2,n1
        mchpo1 = mlchp1.ichpoi(ic)
        call mucpr1(mchpo1,mrigid,mchpoi)
        if (ierr.ne.0) return
        ichpoi(ic) = mchpoi
      enddo

      segdes mlchp1, mlchpo
      return
      end