Esope source files

   1 : C ZEROX     SOURCE    CHAT      08/09/17    21:16:14     6160           
   2 : C ZERO      SOURCE    CHAT      05/01/13    04:22:43     5004           
   3 :       SUBROUTINE ZEROX(WORK,IA,IB,NA)
   4 : C=======================================================================
   5 : C                                      
   6 : C    MET A ZERO UNE MATRICE WORK(IA,IB) de dimension NA*NB
   7 : C                                      
   8 : C=======================================================================
   9 :       IMPLICIT INTEGER(I-N)
  10 :       IMPLICIT REAL*8(A-H,O-Z)
  11 :       DIMENSION WORK(NA,*)    
  12 :       DATA XZER/0.D0/         
  13 : C                             
  14 :       DO 100 I=1,IA           
  15 :       DO 100 J=1,IB           
  16 :       WORK(I,J)=XZER          
  17 :   100 CONTINUE                
  18 :       RETURN                  
  19 :       END                     
  20 :  
  21 :