Télécharger dhdkti.eso

Retour à la liste

Numérotation des lignes :

  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.  
  24.  

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