dacopy Subroutine

private subroutine dacopy(nrow, ncol, a, nrowa, b, nrowb)

this routine copies one rectangular array, a, to another, b, where a and b may have different row dimensions, nrowa and nrowb. the data copied consists of nrow rows and ncol columns.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nrow
integer, intent(in) :: ncol
real(kind=wp), intent(in) :: a(nrowa,ncol)
integer, intent(in) :: nrowa
real(kind=wp), intent(out) :: b(nrowb,ncol)
integer, intent(in) :: nrowb

Calls

proc~~dacopy~~CallsGraph proc~dacopy dacopy proc~dcopy dcopy proc~dacopy->proc~dcopy

Called by

proc~~dacopy~~CalledByGraph proc~dacopy dacopy proc~dvjac dvode_t%dvjac proc~dvjac->proc~dacopy proc~dvnlsd dvode_t%dvnlsd proc~dvnlsd->proc~dvjac proc~dvstep dvode_t%dvstep proc~dvstep->proc~dvnlsd proc~dvode dvode_t%dvode proc~dvode->proc~dvstep

Source Code

   subroutine dacopy(nrow,ncol,a,nrowa,b,nrowb)

      integer,intent(in) :: nrow
      integer,intent(in) :: ncol
      integer,intent(in) :: nrowa
      integer,intent(in) :: nrowb
      real(wp),intent(in) :: a(nrowa,ncol)
      real(wp),intent(out) :: b(nrowb,ncol)

      integer :: ic

      do ic = 1 , ncol
         call dcopy(nrow,a(1,ic),1,b(1,ic),1)
      enddo

   end subroutine dacopy