Sources Esope | Cast3M

hookid
C HOOKID    SOURCE    CHAT      05/01/13    00:25:39     5004
      SUBROUTINE HOOKID(DDHOOK,NSTRS)
C======================================================================
C         MET UNE MATRICE DDHOOK(NSTRS,NSTRS) A L IDENTITE
C  ENTREES
C     DDHOOK(NSTRS,NSTRS)  LA MATRICE
C     NSTRS                TAILLE DE LA MATRICE
C  SORTIES
C     DDHOOK(NSTRS,NSTRS)
C                           EBERSOLT AOUT 86
C======================================================================
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      PARAMETER(UN=1.D0,XZER=0.D0)
      DIMENSION DDHOOK(NSTRS,*)
C
      DO 100 IA=1,NSTRS
      DO 200 IB=1,NSTRS
      DDHOOK(IA,IB)=XZER
 200  CONTINUE
      DDHOOK(IA,IA)=UN
 100  CONTINUE
      RETURN
      END