code 34273;
integer procedure QRISNGVALDEC(A, M, N, VAL, V, EM);
value M, N; integer M, N; array A, VAL, V, EM;
begin array B[1:N];

    HSHREABID(A, M, N, VAL, B, EM);
    PSTTFMMAT(A, N, V, B);  PRETFMMAT(A, M, N, VAL);
    QRISNGVALDEC:= QRISNGVALDECBID(VAL, B, M, N, A, V, EM)
end QRISNGVALDEC;
        eop