c @(#)Copyright (c), 1987, 1993 StatSci, Inc.  All rights reserved.
        subroutine myfun(x, n)
        integer n
        real*8 x(n)
        call dblepr('Some test data', 14, x, n)
        return
        end