Esope source files

   1 : C ZZERO     SOURCE    CHAT      05/01/13    04:25:35     5004           
   2 : CCC
   3 : C **********************************************************************
   4 : CCC
   5 : CCC
   6 : C Inicializa a 0 un vector
   7 : CCC
   8 :       SUBROUTINE ZZERO (X,N)
   9 :       IMPLICIT INTEGER(I-N)
  10 :       integer i,n
  11 :       real*8 x(n)
  12 :       do i=1,n
  13 :         x(i)=0.D0
  14 :       enddo
  15 :       return
  16 :       end
  17 :  
  18 :