.SD;.FLAGS CAPITALIZE;
.TITLE ^^GETVAL-R\\ETRIEVING THE VALUE OF A SYMBOL
.PAGE
.INDENT 49
<GETVAL
.SKIP 1
.CENTER
^^GETVAL-R\\ETRIEVING THE VALUE OF A SYMBOL
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: GETVAL\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ ^TO RETRIEVE A VALUE FROM THE SYMBOL TABLE DEFINED BY <PARSAE
AND MANIPULATED BY <EVALAE.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ FROM <FORTRAN
.CENTER
  <CALL ^^GETVAL(SYMTAB,SYM,VAL[,ERR])\\
.CENTER
 OR
.CENTER
 ^^ERR=GETVAL(SYMAB,SYM,VAL [,ERR])\\
.SKIP 1
.INDENT -10
^^PARAMETERS:\\
.SKIP;.INDENT -9
^^SYMTAB---A\\N <INTEGER ARRAY FOR THE SYMBOL TABLE--SEE <PARSAE.
.SKIP;.INDENT -9
^^SYM------A\\N 8 BYTE <ASCII STRING.
<GETVAL SEARCHES <SYMTAB FOR <SYM AND RETURNS THE VALUE OF <SYM IN 
<VAL.  ^THIS SYMBOL MUST BE LEFT JUSTIFIED AND SPACE FILLED TO 8 BYTES.
.SKIP;.INDENT -9
^^VAL------A\\ FLOATING POINT (<REAL*4) NUMBER TO RECIEVE THE CURRENT 
VALUE OF <SYM.
.INDENT -9
.SKIP
^^ERR------ERR=\\ -1 IF SUCCESSFUL.  <ERR= 0 IF NO SUCH SYMBOL.
.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ NONE
.SKIP 1
.INDENT -10
^^EXAMPLE:  CALL GETVAL(SYMTAB,'TITER...',TITER)!NOTE LEFT JUSTIFICATION.
.SKIP 1;\\
.INDENT -10
^^FEATURES:\\ NONE
.SKIP 1
.INDENT -10
^^AUTHOR:\\^MIKE ^HIGGINS
.SKIP 1
.INDENT -10
^^WRITTEN:\\ ^AUGUST 1978
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ <SUPERMAC
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ <GETVAL
.SKIP 1
.INDENT -10
^^LIBRARY:\\ <DP:[60,60]CETUS.OLB
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ LONG AGO
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ SEE ^LINDA ^MUNDY OR ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10