Télécharger transp.eso

Retour à la liste

Numérotation des lignes :

transp
  1. C TRANSP SOURCE AM 11/05/26 21:16:48 6982
  2. subroutine TRANSP (irangi, irangj, XMAT1, XMAT2)
  3. C MAT2=T MAT1
  4.  
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8(A-H,O-Z)
  7. DIMENSION XMAT1(irangi,irangj), XMAT2(irangj,irangi)
  8. *
  9. do i=1,irangi
  10. do j=1,irangj
  11. XMAT2(j,i)=XMAT1(i,j)
  12. enddo
  13. enddo
  14.  
  15. return
  16. end
  17.  
  18.  

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