SUBROUTINE S10(NCD,MODE,IER,ITAG,NFCN)
      INTEGER FIRST,END
      COMMON/LIMITS/XMIN,XMAX,YMIN,YMAX
      COMMON/AR/BRAY(4,600),STRESS(200,4),BRAK(2,40)
      COMMON/SIHI/IVECT(1800)
C.....SCREEN PERFORMS THREE (3) FUNCTIONS
C     (1) CHECKS IVECT OVERFLOW.--ERROR = IER=1
C     (2) UPDATES ITAG, AND CHECKS FIRST PER CALL
C     (3) TURNS ON, STORES AND DELETES FILES...MODE=FCN
C
      RETURN
      END