Actual source code: faypx.F

  1: !
  2: !
  3: !    Fortran kernel for the AYPX() vector routine
  4: !
 5:  #include include/finclude/petscdef.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:       return
 20:       end