Télécharger copymat.eso

Retour à la liste

Numérotation des lignes :

  1. C COPYMAT SOURCE BP208322 20/09/18 21:15:10 10718
  2.  
  3. SUBROUTINE COPYMAT(NT,A,B)
  4.  
  5. *=======================================================================
  6. * copie de la matrice carree A de dim NTxNT vers B de meme dimension
  7. * 2d-array copy (simpler than dlacpy)
  8. *=======================================================================
  9. IMPLICIT INTEGER(I-N)
  10. IMPLICIT REAL*8(A-H,O-Z)
  11. INTEGER I,J,NT
  12. c REAL*8 A(NT,NT),B(NT,NT)
  13. REAL*8 A(NT,*),B(NT,*)
  14.  
  15. c DO I = 1,NT
  16. DO J = 1,NT
  17. DO I = 1,NT
  18. B(I,J) = A(I,J)
  19. ENDDO
  20. ENDDO
  21.  
  22. END
  23.  
  24.  
  25.  
  26.  

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