*********************************************************************8 subroutine REFBOOK ******************************************************************** RETURN ******************************************************************** entry refbooklast ******************************************************************** return end