Actual source code: fxtimesy.F90

  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