!ÀÛ»ýÇóºÍ
    SUBROUTINE cumsum(n,A,B)
    implicit none
    
    integer :: n,i
    integer :: A(n),B(n)
    
    B(1) = A(1)
    do i=2,n
        B(i) = B(i-1)+A(i)
    end do
    
    end subroutine