C         SUBROUTINE TO INPUT STRUCTURE DATA
          SUBROUTINE INPUTS
          INTEGER PARENT,SON1,SON2,SON3,SON4,SON5
      DIMENSION DAT(2)
          COMMON/POINTS/LNS(2,15),PTS(6,100)
          COMMON/CENTS/C(3,15)
          COMMON/LINKIT/ISTRT,LINKS(6,15)
          COMMON/SUMIT/PSUM(3,16,5)
      DATA DAT(1),DAT(2)/5HCHRMA,4HNSRC/
      CALL SEEK(1,DAT)
4         READ(1,500)MODULE
          IF(MODULE.EQ.0)GO TO 5
          READ(1,505)IST,IEN
          LNS(1,MODULE)=IST
          LNS(2,MODULE)=IEN
500       FORMAT(I3)
505       FORMAT(2I4)
          READ(1,501)((PTS(J,K),J=1,6),K=IST,IEN)
501       FORMAT(6F5.1)
          GO TO 4
5         READ(1,502)MODULE,PARENT,SON1,SON2,SON3,SON4,SON5
          IF(MODULE.EQ.0)GO TO 99
502       FORMAT(7I3)
503       FORMAT(3F5.1)
          LINKS(1,MODULE)=PARENT
          LINKS(2,MODULE)=SON1
          LINKS(3,MODULE)=SON2
          LINKS(4,MODULE)=SON3
          LINKS(5,MODULE)=SON4
          LINKS(6,MODULE)=SON5
          READ(1,503)(C(J,MODULE),J=1,3)
          IF(PARENT.NE.0)GO TO 5
          DO 11 I=1,3
11        PSUM(I,16,1)=C(I,MODULE)
          GO TO 5
99    CALL CLOSE(1,DAT)
      RETURN
          END
