Esope source files

   1 : C ZDANUL    SOURCE    CHAT      05/01/13    04:22:06     5004           
   2 :       SUBROUTINE ZDANUL(A,LA)                                                   
   3 : C                                                                               
   4 : C         ANNULE UN TABLEAU DE LONGUEUR LA        A EN DOUBLE PRECISION         
   5 : C                                                                               
   6 :       IMPLICIT INTEGER(I-N)
   7 :       REAL*8 A                                                                  
   8 :       DIMENSION A(1)                                                            
   9 :       DO 1 IA=1,LA                                                              
  10 :       A(IA)=0.0D0                                                               
  11 :     1 CONTINUE                                                                  
  12 :       RETURN                                                                    
  13 :       END                                                                       
  14 :