C MUCPLI SOURCE CB215821 20/11/25 13:34:38 10792 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 PPARAM -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