Actual source code: fcopy.F90

      1: !
      2: !
      3: !    Fortran kernel for the copy vector routine
      4: !
      5: #include <petsc/finclude/petscsys.h>
      6: !
      7: pure subroutine FortranCopy(n, x, y)
      8:   use, intrinsic :: ISO_C_binding
      9:   implicit none(type, external)
     10:   PetscScalar, intent(in) :: x(*)
     11:   PetscScalar, intent(inout) :: y(*)
     12:   PetscInt, intent(in) :: n

     14:   PETSC_AssertAlignx(16, x(1))
     15:   PETSC_AssertAlignx(16, y(1))

     17:   y(1:n) = x(1:n)
     18: end subroutine FortranCopy

     20: pure subroutine FortranZero(n, x)
     21:   use, intrinsic :: ISO_C_binding
     22:   implicit none(type, external)
     23:   PetscScalar, intent(inout) :: x(*)
     24:   PetscInt, intent(in) :: n

     26:   PETSC_AssertAlignx(16, x(1))

     28:   x(1:n) = 0.0
     29: end subroutine FortranZero