Download dhdkti.eso

Back to the list

   1 : C DHDKTI    SOURCE    CHAT      05/01/12    22:48:44     5004           
   2 :       subroutine dhdkti(vela,lhook,dhook)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)
   5 :       dimension dhook(lhook,*),vela(*)
   6 :       do 1,iu=1,lhook
   7 :       do 1 io=1,lhook
   8 :    1  dhook(io,iu)=0.D0
   9 :       dhook(1,1)=vela(1)
  10 :       dhook(4,4)=vela(1)
  11 :       dhook(1,2)= vela(2)
  12 :       dhook(2,1)= vela(2)
  13 :       dhook(4,5)= vela(2)
  14 :       dhook(5,4)=vela(2)
  15 :       dhook(2,2) = vela(6)
  16 :       dhook(5,5)= vela(6)
  17 :       dhook(3,3)= vela(16)
  18 :       dhook(6,6)=vela(16)
  19 :       return
  20 :       end
  21 :       
  22 :        
  23 :  

© Cast3M 2003 - All rights reserved.
Disclaimer