subroutine testsub(i, j, k, d)
        integer*4 i, j, k(3)
        double precision d
        print *, 'Subroutine'
        print *, i, j, k(1), k(2), k(3), d
        i = 123450
        j = 67890
        k(1) = 121340
        k(2) = 253420
        k(3) = 354560
        print *, 'Subroutine'
        print *, i, j, k(1), k(2), k(3), d
        return
        end