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