!向量卷积(全卷积) SUBROUTINE conv(m,x,n,y,z) implicit none integer :: m,n real*8 :: x(m),y(n),z(m+n-1) integer :: i,j z = 0 do i=1,m do j=1,n z(i+j-1) = z(i+j-1)+x(i)*y(j) end do end do end subroutine