C LOCSYM -- LOCATE A VARIABLE IN THE .VRS FILE ROUTINE C C INPUTS: SYM SYMBOL TO LOCATE C MOD MODULE(SUBROUTINE OR ROOT) THAT SYM IS IN C SEG SEGMENT THAT SYM IS IN C C CURMOD CURRENT MODULE(FOR DEFAULT) C CURSEG CURRENT SEGMENT(FOR DEFAULT) C C OUTPUTS: IADD ADDRES OF VARIABLE C ITYP VARIABLE TYPE C ISIZE VARIABLE SIZE IN BYTES C IERR ERROR FLAG C SUBROUTINE LOCSYM(SYM,MOD,SEG,CURMOD,CURSEG, + IADD,ITYP,ISIZE,IERR) INTEGER SYM(3),MOD(3),SEG(3),CURMOD(3),CURSEG(3) INTEGER IADD,ITYP,ISIZE,IERR INTEGER TSEG(3),TMOD(3),TSYM(3) INTEGER*4 IREC1,IREC2,IREC3,IREC4 COMMON /RECS/IREC1,IREC2,IREC3 IREC2=1 IERR=.TRUE. IF(KOMSTR(' ',1,6,MOD,1,6).EQ.0) + CALL STRMOV(CURMOD,1,6,MOD,1) IF(KOMSTR(' ',1,6,SEG,1,6).EQ.0) + CALL STRMOV(CURSEG,1,6,SEG,1) 100 READ(2'IREC2,ERR=300)TSEG,TMOD,TSYM,IADD,ITYP,ISIZE IF(KOMSTR(SYM,1,6,TSYM,1,6).NE.0)GOTO100 IF(KOMSTR(SEG,1,6,TSEG,1,6).EQ.0.AND. + KOMSTR(MOD,1,6,TMOD,1,6).EQ.0)GOTO200 GOTO100 200 IERR=.FALSE. 300 RETURN END