Sources Esope | Cast3M

zerox
C ZEROX     SOURCE    CB215821  26/08/24    21:19:04     12622          
C ZERO      SOURCE    CHAT      05/01/13    04:22:43     5004
      SUBROUTINE ZEROX(WORK,IA,IB,NA)
C=======================================================================
C
C    MET A ZERO UNE MATRICE WORK(IA,IB) de dimension NA*NB
C
C=======================================================================
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION WORK(NA,*)
      DATA XZER/0.D0/
C
      DO 101 I=1,IA
      DO 100 J=1,IB
      WORK(I,J)=XZER
  100 CONTINUE
  101 CONTINUE
      RETURN
      END