Coastal & Marine Geology InfoBank
Subroutine to return value and length of a symbol.
"a" = argument, "r" = referenced, "s" = set
call getsymbol (with the following arguments)
Symbol [variable char*(*) a]
SymbolValue [variable char*(*) as]
LengthSymbol [variable i*4 as]
Symbol = symbol name to be translated.
SymbolValue = character string value of Symbol.
LengthSymbol = integer number of characters in SymbolValue.
char (FORTRAN intrinsic function)
Although this program has been used by the U.S. Geological Survey,
no warranty, expressed or implied, is made by the Survey as to the
accuracy and functioning of the program and related program
material nor shall the fact of distribution constitute any such
warranty, and no responsibility is assured by the Survey in
Clint Steele 5/10/84 .for
based on subroutine from DECUS tapes on VAXNET.
Ed Maple 1/15/88
Modified for UNIX compatibility. Also changed LIB$GETSYMBOL to
be a subroutine call rather than a function call.
Jean Riordan 2/17/88
Modified for DRS$SHARE cleanup & UNIX compatibility
Clint Steele 12/4/95 Removed VMS capability
Carolyn Degnan 9/23/04 Added implicit none.
call getenv (Symbol, SymbolValue)
call stringlen (SymbolValue, LengthSymbol)