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