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 :
© Cast3M 2003 - All rights reserved.
Disclaimer