c @(#)Copyright (c), 1987, 1993 StatSci, Inc.  All rights reserved.
        subroutine test(x, n, ierr)
        real*8 x(1)
        integer n, ierr
        ierr = 0
        if (n.lt.3) then
                write(*,*) "Error : n, ", n, " should be greater than 2"
                ierr = 1
                return
        endif
        do 10 i = 2, n
10                x(1) = x(1) + x(i)
        return
        end