PARAMETER (NX=10,NY=10)
            REAL A(NX,NY)
            .....
            CALL S1(A,NX,NY)
            .....
            END

            SUBROUTINE S1(B,I,K)
            REAL B(I,K)
            ...
            RETURN
            END