Actual source code: faypx.F90

      1: !
      2: !
      3: !    Fortran kernel for the AYPX() vector routine
      4: !
      5: #include <petsc/finclude/petscsys.h>
      6: !
      7:       subroutine FortranAYPX(n,a,x,y)
      8:       implicit none
      9:       PetscScalar  a
     10:       PetscScalar  x(*),y(*)
     11:       PetscInt n

     13:       PetscInt i

     15:       do 10,i=1,n
     16:         y(i) = x(i) + a*y(i)
     17:  10   continue

     19:       end