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.  
  12. -INC PPARAM
  13. -INC CCOPTIO
  14. -INC SMLCHPO
  15. -INC SMCHPOI
  16. -INC SMRIGID
  17. -INC SMCOORD
  18.  
  19. MLCHP1 = lmchpo1
  20. segact mlchp1
  21. n1 = mlchp1.ichpoi(/1)
  22.  
  23. if (n1.le.0) call erreur(3)
  24. if (ierr.ne.0) return
  25.  
  26. mchpo1 = mlchp1.ichpoi(1)
  27. segini mlchpo
  28. lmchpo = mlchpo
  29. call mucpri(mchpo1,mrigid,mchpoi)
  30. if (ierr.ne.0) return
  31.  
  32. ichpoi(1) = mchpoi
  33.  
  34. do ic = 2,n1
  35. mchpo1 = mlchp1.ichpoi(ic)
  36. call mucpr1(mchpo1,mrigid,mchpoi)
  37. if (ierr.ne.0) return
  38. ichpoi(ic) = mchpoi
  39. enddo
  40.  
  41. segdes mlchp1, mlchpo
  42. return
  43. end
  44.  
  45.  
  46.  

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