Télécharger la plaquette Cast3M


fr en

Télécharger mucpli.eso

Retour à la liste

Numérotation des lignes : 

mucpli

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

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