www.pudn.com > Wang_Lecture_2012.rar > memcpy.f, change:2001-11-19,size:405b


c*******************************************************************************
c*******************************************************************************
        subroutine memcpy(a,b,n)
        implicit none
c
c       copy real array a to b
c
        integer n
        double precision a(n),b(n)
c
        integer i
c
        do i=1,n
          b(i)=a(i)
        enddo
        return
        end