*********************************************************************** * SUBROUTINE REFDIGI1 * *********************************************************************** RETURN END