C**********************************************************************
C
C  THIS SUBROUTINE IS CALLED WITH A COMPONENT TAG (1-750) AS THE FIRST
C  ARGUMENT, AND RETURNS WITH THE COMPONENT TYPE AND NUMBER AS THE
C  LAST TWO ARGUMENTS RESPECTIVELY.
C
C**********************************************************************
      SUBROUTINE TAGTYP(ITAG,ITYP,NO)
C                                            THE SUBRTN USES THE MATRIX
C                                            NODE AND VARIABLE ICOM
C                                            FROM BLANK COMMON.
      INTEGER NODE(60,10),M(20,60)
      REAL PAR(60,6),OP(10),W(60),D(60)
      COMMON PAR,OP,W,D,M,NODE,DRA(21),ICOM
C                                            REDUCE ITAG TO A NUMBER
C                                            WITHIN THE RANGE OF THE
C                                            'FROM' NODES.
      NO=ITAG
      IF(NO.GT.250)NO=NO-250
      IF(NO.GT.250)NO=NO-250
C                                            FIND COMPONENT CONCERNED.
      DO 1 I=1,ICOM
      IF(NODE(I,10).EQ.NO)GO TO 2
    1 CONTINUE
C                                            SET ARGUMENTS TO VALUES.
    2 ITYP=NODE(I,1)
      NO=I
C                                            RETURN.
      RETURN
      END
