Line data    Source code

       1           46 :       subroutine store(a,b,n)
       2              : c
       3              : c     stores first n elements of single precision a 
       4              : c        into single precision b
       5              : c
       6              : c  Double precision version.
       7              : c  ++++++++++++++++++++++++
       8              : c
       9              : c  Dated 10/3/90.
      10              : c
      11              : c  Note: this double precision version of the routine has same name
      12              : c  as single precision version, but is distinguished by its file name
      13              : c
      14              :       implicit double precision(a-h,o-z)
      15              :       dimension a(n),b(n)
      16              : c
      17          414 :    10 do 11 i=1,n
      18          414 :    11 b(i)=a(i)
      19           46 :       return
      20              : c
      21              :       end