*********************************************************************8

       subroutine REFINIT

**********************************************************************





********************************************************************
        return
        end