Date: 2015-10-02T22:02:35+00:00

Actual source code: fxtimesy.F
petsc-3.6.2 2015-10-02
Report Typos and Errors

      1: #include <petsc/finclude/petscsysdef.h>
      2: !

      4:       subroutine Fortranxtimesy(x,y,z,n)
      5:       implicit none
      6:       PetscScalar  x(*),y(*),z(*)
      7:       PetscInt n
      8:       PetscInt i
      9:       PETSC_AssertAlignx(16,x(1))
     10:       PETSC_AssertAlignx(16,y(1))
     11:       PETSC_AssertAlignx(16,z(1))
     12:       do 10,i=1,n
     13:          z(i) = x(i) * y(i)
     14:   10  continue
     15:       return
     16:       end