Line data    Source code

       1            4 :       subroutine  zero(a,nn)
       2              : c
       3              : c
       4              : c     sets a(n)=0., n=1,nn
       5              : c
       6              : c
       7              : c
       8              : c
       9              : c  Double precision version.
      10              : c  ++++++++++++++++++++++++
      11              : c
      12              : c  Dated 10/3/90.
      13              : c
      14              : c  Note: this double precision version of the routine has same name
      15              : c  as single precision version, but is distinguished by its file name
      16              : c
      17              :       implicit double precision(a-h,o-z)
      18              :       dimension a(nn)
      19          117 :       do 1 n=1,nn
      20          117 :     1 a(n)=0.d0
      21            4 :       return
      22              : c
      23              :       end