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