Télécharger arrange.eso

Retour à la liste

Numérotation des lignes :

  1. C ARRANGE SOURCE BR232186 16/12/05 21:15:04 9238
  2. SUBROUTINE ARRANGE(X,Y)
  3. C
  4. C====&===1=========2=========3=========4=========5=========6=========7==
  5. C Commentaires : Subroutine permettant d'arranger un vecteur en un
  6. C tenseur
  7. C
  8. C Argumets : vecteur x, retourne la matrice y
  9. C
  10. C AUTEUR : E. KISHTA - CEA/DEN/DANS/DM2S/SEMT/EMSI
  11. C B. RICHARD - CEA/DEN/DANS/DM2S/SEMT/EMSI
  12. C====&===1=========2=========3=========4=========5=========6=========7==
  13. C
  14. C----DECLARATION GENERALES----------------------------------------------
  15. C
  16. IMPLICIT INTEGER(I-N)
  17. IMPLICIT REAL*8(A-H,O-Z)
  18.  
  19. real*8 x(4), y(2,2)
  20.  
  21.  
  22. y(1,1) = x(1)
  23. y(1,2) = x(2)
  24. y(2,1) = x(3)
  25. y(2,2) = x(4)
  26.  
  27.  
  28.  
  29. RETURN
  30. END
  31.  
  32.  
  33.  

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