C ZERO      SOURCE    PV        13/10/15    21:15:33     7840           
      SUBROUTINE ZERO(WORK,IA,IB)                                               
C=======================================================================        
C                                                                               
C    MET A ZERO UNE MATRICE WORK(IA,IB)                                         
C                                                                               
C=======================================================================        
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
      DIMENSION WORK(IA,*)                                                      
      DATA XZER/0.D0/                                                           
C                                                                               
      if (ia*ib.gt.1024) then
       DO 100 I=1,IA
       DO 100 J=1,IB
        WORK(I,J)=XZER
  100  CONTINUE
      else
       call intpdo(lenb)
       call ooozmr(work(1,1),ia*ib*lenb)
      endif
      RETURN
      END