Télécharger hookid.eso

Retour à la liste

Numérotation des lignes :

  1. C HOOKID SOURCE CHAT 05/01/13 00:25:39 5004
  2. SUBROUTINE HOOKID(DDHOOK,NSTRS)
  3. C======================================================================
  4. C MET UNE MATRICE DDHOOK(NSTRS,NSTRS) A L IDENTITE
  5. C ENTREES
  6. C DDHOOK(NSTRS,NSTRS) LA MATRICE
  7. C NSTRS TAILLE DE LA MATRICE
  8. C SORTIES
  9. C DDHOOK(NSTRS,NSTRS)
  10. C EBERSOLT AOUT 86
  11. C======================================================================
  12. IMPLICIT INTEGER(I-N)
  13. IMPLICIT REAL*8(A-H,O-Z)
  14. PARAMETER(UN=1.D0,XZER=0.D0)
  15. DIMENSION DDHOOK(NSTRS,*)
  16. C
  17. DO 100 IA=1,NSTRS
  18. DO 200 IB=1,NSTRS
  19. DDHOOK(IA,IB)=XZER
  20. 200 CONTINUE
  21. DDHOOK(IA,IA)=UN
  22. 100 CONTINUE
  23. RETURN
  24. END
  25.  
  26.  

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