Télécharger aeqbt.eso

Retour à la liste

Numérotation des lignes :

  1. C AEQBT SOURCE CHAT 07/10/22 21:15:00 5921
  2. SUBROUTINE AEQBT(A,B,N,M)
  3. C ANTOINE LE 29/01/01
  4. C
  5. C A=B^(T) POUR UNE MATRICE B DE DEPART N*M
  6. C
  7. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  8. IMPLICIT REAL*8(A-H,O-Z)
  9. IMPLICIT INTEGER (I-N)
  10. * INTEGER N,M
  11. * REAL *8 A(M,N),B(N,M)
  12. dimension A(M,*),B(N,*)
  13. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  14. DO I=1,M
  15. DO J=1,N
  16. A(I,J)=B(J,I)
  17. END DO
  18. END DO
  19. RETURN
  20. END
  21.  
  22.  

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