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