Actual source code: fxtimesy.F
petsc-3.10.5 2019-03-28
Report Typos and Errors

      1: #include <petsc/finclude/petscsys.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