LOGICAL*1 FUNCTION GET_VALUE (STRING_VALUE, DEFAULT, NEW_VALUE)
	IMPLICIT NONE
C
C   Module:	GET VALUE
C
C   Original:	George H. Walrod III
C
C   Purpose:	Attempts to Translate a String which Should be Numerics,
C		and Set the Decimal Value, If it is not Numerics and it
C		is Default String, Then the Default Value is used to set
C		for the Value.
C
C   Arguments:
C		STRING_VALUE	: String Value
C		DEFAULT		: Default Value to Use if String is Not Good
C		NEW_VALUE	: Value Return
C
C   Corrected Modification:
C		None
C   Notes:
C		None
C
*
	PARAMETER
     +		DEFAULT_STRING	= 'DEFAULT'	! DEFAULT STRING

	CHARACTER
     +		STRING_VALUE*(*)		! String Value

	INTEGER*4
     +		OTS$CVT_TI_L,			! RTL Convert Int Str to Long
     +		RTL_STATUS,			! RTL Status
     +		DEFAULT,			! Default Numeric Value
     +		NEW_VALUE			! Numeric Value Returned

*

C
C   Initialize Pointers and Strings   
C

	GET_VALUE = .false.

C
C   Check String Value For the Default String First
C

	IF (STRING_VALUE .eq. DEFAULT_STRING) THEN
	  NEW_VALUE = DEFAULT
	  GOTO 990
	 END IF

C
C   Convert the Integer String of Numbers to its Decimal Binary Value
C

	RTL_STATUS = OTS$CVT_TI_L(STRING_VALUE, NEW_VALUE)
	IF (.not. RTL_STATUS) THEN
	  NEW_VALUE = DEFAULT
	  GOTO 999
	 END IF

 990	CONTINUE	
	GET_VALUE = .true.

 999	CONTINUE
	RETURN
	END