void X_DGEPRINT(INTEGER r, INTEGER l, REAL A(:), INTEGER lda)