      SUBROUTINE BSPDOC
C***FIRST EXECUTABLE STATEMENT  BSPDOC
      RETURN
      END
