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