Télécharger mucpli.eso

Retour à la liste

Numérotation des lignes :

  1. C MUCPLI SOURCE CHAT 09/10/09 21:21:17 6519
  2. subroutine mucpli(lmchpo1,mrigid,lmchpo)
  3. C
  4. C **** multiplication d'une matrice(mrigid) par une suite de champoin (lmchpo1)
  5. C **** le resultat est une liste de champoin (lmchpoi).
  6. C **** iret=ire2*ire1
  7. C **** les champpoint resultat ont la meme dimension que la matrice.
  8. C
  9. IMPLICIT INTEGER(I-N)
  10. IMPLICIT REAL*8 (A-H,O-Z)
  11. -INC CCOPTIO
  12. -INC SMLCHPO
  13. -INC SMCHPOI
  14. -INC SMRIGID
  15. -INC SMCOORD
  16.  
  17. MLCHP1 = lmchpo1
  18. segact mlchp1
  19. n1 = mlchp1.ichpoi(/1)
  20.  
  21. if (n1.le.0) call erreur(3)
  22. if (ierr.ne.0) return
  23.  
  24. mchpo1 = mlchp1.ichpoi(1)
  25. segini mlchpo
  26. lmchpo = mlchpo
  27. call mucpri(mchpo1,mrigid,mchpoi)
  28. if (ierr.ne.0) return
  29.  
  30. ichpoi(1) = mchpoi
  31.  
  32. do ic = 2,n1
  33. mchpo1 = mlchp1.ichpoi(ic)
  34. call mucpr1(mchpo1,mrigid,mchpoi)
  35. if (ierr.ne.0) return
  36. ichpoi(ic) = mchpoi
  37. enddo
  38.  
  39. segdes mlchp1, mlchpo
  40. return
  41. end
  42.  
  43.  
  44.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales