Télécharger la plaquette Cast3M


fr en

Télécharger colima.eso

Retour à la liste

Numérotation des lignes : 

colima

  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