C C C G E T S Y M C C CHECK SYMBOL TABLE FOR SYMBOL C C GETSYM IS USED TO SEARCH FOR THE GIVEN SYMBOL IN THE USERS SYMBOL C TABLE. IF THE SYMBOL IS FOUND ITS VALUE , ASSOCIATED FLAGS , AND AN C INDEX INTO THE TABLE WHERE IT WAS FOUND ARE RETURNED. IF THE SYMBOL C WAS NOT FOUND THE INDEX IS SET TO -1. THE CALLING SEQUENCE IS: C C CALL GETSYM ( ITEM , IFLAG , ISYMVL , ISYMFL ) C C WHERE: C ITEM- INTEGER ARRAY CONTAINING THE SYMBOL TO BE SEARCHED FOR. C THE SYMBOL MUST BE 16 BYTES IN LENGTH . IF LESS THAN 16 C BYTES IT MUST BE LEFT JUSTIFIED AND BLANK FILLED. C IFLAG- INTEGER VARIABLE WHICH RETURNS THE INDEX INTO THE TABLE C WHERE A MATCH WAS FOUND.IF THE ITEM IS NOT FOUND IN THE C TABLE IFLAG IS SET TO -1. C ISYMVL- INTEGER*4 VARIABLE WHICH RETURNS THE SYMBOLS VALUE IF THE C SYMBOL VAL FOUND. C ISYMFL- INTEGER VARIABLE WHICH RETURNS THE SYMBOLS ASSOCIATED C FLAGS IF IT WAS FOUND. C SUBROUTINE GETSYM ( ITEM , IFLAG , ISYMVL , ISYMFL ) INCLUDE 'USRSYM.CMN' INCLUDE 'PRGDAT.CMN' INTEGER ITEM(8) , IFLAG , ISYMFL INTEGER*4 ISYMVL D WRITE (5,1) ITEM,SYMNUM D 1 FORMAT (' GETSYM LOOKING FOR ',8A2,' IN TABLE OF ',I6) IF (SYMNUM.GT.0) GO TO 50 IFLAG = -1 GO TO 200 50 IFLAG= 0 ISYMVL = 0 ISYMFL = 0 IF ( PASNUM .EQ. 2 ) GO TO 100 CALL LSERCH ( SYMTAB , SYMNUM , ITEM , 16 , IFLAG ) IF ( IFLAG .LT. 0 ) GO TO 200 GO TO 150 100 CONTINUE CALL BSERCH ( SYMTAB , SYMNUM , ITEM , 16 , IFLAG ) IF ( IFLAG .LT. 0 ) GO TO 200 150 CONTINUE ISYMVL = SYMVAL(IFLAG) ISYMFL = SYMFLG(IFLAG) 200 CONTINUE RETURN END