Sources Esope | Cast3M

zero3d
C ZERO3D    SOURCE    PV090527  23/01/27    21:16:11     11574          
************************************************************************
      subroutine zero3d(x,n,m)
c     mise a zero d une matrice quelconque      
      real*8 x(n,m)
      integer m,n,i,j
      do i=1,n
        do j=1,m
             x(i,j)=0.d0
        end do
      end do
      return
      end