1 : C DELT SOURCE CHAT 05/01/12 22:41:27 5004 2 : FUNCTION DELT(I,J) 3 : C======================================================================= 4 : C OPERATEUR DE KRONECKER 5 : C======================================================================= 6 : C Bergoin - 1992 7 : C 8 : C======================================================================= 9 : IMPLICIT INTEGER(I-N) 10 : REAL*8 DELT 11 : INTEGER I,J 12 : DATA ZERO /0.D0/,UN /1.D0/ 13 : C---------------------------------------------------------------------- 14 : DELT=ZERO 15 : IF (I.EQ.J) DELT=UN 16 : RETURN 17 : END 18 : 19 :
© Cast3M 2003 - All rights reserved.
Disclaimer