Sources Esope | Cast3M

zero
C ZERO      SOURCE    PV090527  26/02/02    21:15:05     12466          
      SUBROUTINE ZERO(WORK,IA,IB)
C=======================================================================
C    MET A ZERO UNE MATRICE WORK(IA,IB)
C=======================================================================
      data lenb /0/
      save lenb
      REAL*8  WORK(*)
      INTEGER IA,IB,IC,I,lenb
C
      IC=IA*IB
 
      IF (IC .LT. 4096)THEN
        DO I=1,IC
          WORK(I)=0.D0
        ENDDO
 
      ELSE
        if (lenb.eq.0) CALL intpdo(lenb)
        CALL ooozmr(WORK(1),IC*lenb)
 
      ENDIF
 
      RETURN
      END