C C GETCNT- GET CONTENTS OF SPECIFIC LOCATION IN CORE ROUTINE. C C INPUTS: IADD LOCATION TO BE EXAMINED. C OUTPUTS:ICNT CONTENTS AT THAT LOCATION. C C SUBROUTINE GETCNT(IADD,ICNT) INTEGER TASKNM(2),ITERM,IDSW,RECDAT(9),ITASK(2),IADD,ICNT,IERR COMMON/IONODE/ TASKNM,ITERM,IDSW,RECDAT,ITASK RECDAT(3)=3 RECDAT(4)=IADD RECDAT(5)=2 CALL SNDREC(IERR,1) ICNT=RECDAT(6) RETURN END