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