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: end