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

      SUBROUTINE STSBOOK
c
c     not implemented
c

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