Télécharger colima.eso

Retour à la liste

Numérotation des lignes :

  1. C COLIMA SOURCE BP208322 20/09/18 21:15:04 10718
  2.  
  3. SUBROUTINE COLIMA(N1,N2,A,B,COA,COB,C)
  4. *-----------------------------------------------------------------------
  5. c Combinaison de deux matrices (A,B) de taille N1*N2: C = COA*A + COB*B
  6. *-----------------------------------------------------------------------
  7. IMPLICIT INTEGER(I-N)
  8. IMPLICIT REAL*8(A-H,O-Z)
  9. REAL*8 A(N1,N2),B(N1,N2),C(N1,N2),COA,COB
  10. INTEGER N1,N2,I,J
  11. *
  12. IF (COA.EQ.0.) THEN
  13. DO I = 1,N1
  14. DO J = 1,N2
  15. C(I,J) = COB*B(I,J)
  16. ENDDO
  17. ENDDO
  18. ELSEIF (COA.EQ.1.) THEN
  19. DO I = 1,N1
  20. DO J = 1,N2
  21. C(I,J) = A(I,J) + COB*B(I,J)
  22. ENDDO
  23. ENDDO
  24. ELSE
  25. DO I = 1,N1
  26. DO J = 1,N2
  27. C(I,J) = COA*A(I,J) + COB*B(I,J)
  28. ENDDO
  29. ENDDO
  30. ENDIF
  31. *
  32. END
  33.  
  34.  
  35.  

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