Date: 2013-07-02T14:40:01+00:00

Actual source code: faypx.F
petsc-3.4.2 2013-07-02

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