ADAS Subroutine xxdams

      SUBROUTINE XXDAMS( VALUE )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: XXDAMS  *********************
C
C  PURPOSE: ADAS ROUTINE - SETS UP and interrogates a value for 
C           the donor  mass.
C
C              VALUE ON INPUT   =>   VALUE ON OUTPUT
C
C                     ?                 returns value
C                  <BLANK>              returns value
C                     *                 returns 'UNSET'
C                  <OTHER>              sets value
C                    
C
C  CALLING PROGRAM: GENERAL USE - designed for use with R8CONST
C
C  SUBROUTINE:
C
C   I/O   : (C*7)  VALUE   = VALUE UNDER WHICH ADAS DATA IS STORED
C
C ROUTINES:
C          ROUTINE    SOURCE    BRIEF DESCRIPTION
C          ------------------------------------------------------------
C
C NOTE:
C          TO CHECK CURRENT donor MASS CALL XXDAMS WITH
C          ? AS INPUT.
C
C AUTHOR:  Martin O'Mullane
C
C DATE:    01/04/99
C 
C UPDATE: 
C
C-----------------------------------------------------------------------
      CHARACTER*(*)       VALUE