Esope source files

   1 : C ZERO      SOURCE    PV        13/10/15    21:15:33     7840           
   2 :       SUBROUTINE ZERO(WORK,IA,IB)                                               
   3 : C=======================================================================        
   4 : C                                                                               
   5 : C    MET A ZERO UNE MATRICE WORK(IA,IB)                                         
   6 : C                                                                               
   7 : C=======================================================================        
   8 :       IMPLICIT INTEGER(I-N)
   9 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  10 :       DIMENSION WORK(IA,*)                                                      
  11 :       DATA XZER/0.D0/                                                           
  12 : C                                                                               
  13 :       if (ia*ib.gt.1024) then
  14 :        DO 100 I=1,IA
  15 :        DO 100 J=1,IB
  16 :         WORK(I,J)=XZER
  17 :   100  CONTINUE
  18 :       else
  18 :        call intpdo(lenb)
  18 :        call ooozmr(work(1,1),ia*ib*lenb)
  19 :       endif
  20 :       RETURN
  21 :       END                                                                       
  22 :  
  23 :