Télécharger pshf35.eso

Retour à la liste

Numérotation des lignes :

  1. C PSHF35 SOURCE CHAT 05/01/13 02:37:36 5004
  2. c**************************************************************************
  3. SUBROUTINE PUSHF35(A,F,A1)
  4. c**************************************************************************
  5. IMPLICIT INTEGER(I-N)
  6. real*8 a(4),f(5),t(5),a1(4)
  7. t(1) = f(1)*a(1) + f(4)*a(4)
  8. t(2) = f(5)*a(4) + f(2)*a(2)
  9. t(3) = f(3)*a(3)
  10. t(4) = f(1)*a(4) + f(4)*a(2)
  11. t(5) = f(5)*a(1) + f(2)*a(4)
  12. a1(1) = t(1)*f(1) + t(4)*f(4)
  13. a1(2) = t(5)*f(5) + t(2)*f(2)
  14. a1(3) = t(3)*f(3)
  15. a1(4) = t(5)*f(1) + t(2)*f(4)
  16. end
  17.  
  18.  
  19.  
  20.  

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