Actual source code: fcopy.F

      1: !
      2: !
      3: !    Fortran kernel for the copy vector routine
      4: !
     5:  #include include/finclude/petscdef.h
      6: !
      7:       subroutine FortranCopy(n,x,y)
      8:       implicit none
      9:       PetscScalar  x(*),y(*)
     10:       PetscInt n

     12:       PetscInt i

     14:       do 10,i=1,n
     15:         y(i) = x(i)
     16:  10   continue

     18:       return
     19:       end

     22:       subroutine FortranZero(n,x)
     23:       implicit none
     24:       PetscScalar  x(*)
     25:       PetscInt n

     27:       PetscInt i

     29:       do 10,i=1,n
     30:         x(i) = 0.0
     31:  10   continue

     33:       return
     34:       end