Download pshf35.eso

Back to the list

   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 :  

© Cast3M 2003 - All rights reserved.
Disclaimer