Actual source code: fcopy.F
petsc-3.10.5 2019-03-28
Report Typos and Errors

      1: !
      2: !
      3: !    Fortran kernel for the copy vector routine
      4: !
      5: #include <petsc/finclude/petscsys.h>
      6: !
      7:       subroutine FortranCopy(n,x,y)
      8:       implicit none
      9:       PetscScalar  x(*),y(*)
     10:       PetscInt n
     11:       PetscInt i
     12:       PETSC_AssertAlignx(16,x(1))
     13:       PETSC_AssertAlignx(16,y(1))
     14:       do 10,i=1,n
     15:         y(i) = x(i)
     16:  10   continue
     17:       return
     18:       end

     21:       subroutine FortranZero(n,x)
     22:       implicit none
     23:       PetscScalar  x(*)
     24:       PetscInt n
     25:       PetscInt i
     26:       PETSC_AssertAlignx(16,x(1))
     27:       do 10,i=1,n
     28:         x(i) = 0.0
     29:  10   continue
     30:       return
     31:       end