1: ! 2: ! "$Id: fmaxpy.F,v 1.10 2001/08/07 03:05:24 balay Exp $"; 3: ! 4: ! Fortran kernel for the AYPX() vector routine 5: ! 6: #include include/finclude/petscdef.h 7: ! 8: subroutine FortranAYPX(n,a,x,y) 9: implicit none 10: PetscScalar a 11: PetscScalar x(*),y(*) 12: integer n 14: integer i 16: do 10,i=1,n 17: y(i) = x(i) + a*y(i) 18: 10 continue 20: return 21: end