CIPRIME JJNAME                                                          JJNAME      1
      INTEGER*4 ITY(3,NBUF1)                                            JJNAME      2
      COMMON /FILEHD/ ITY,JNAME,ITY1                                    JJNAME      3
      DIMENSION IITY(NBUF1*3),JNAME(8,NBUF1)                            JJNAME      4
      EQUIVALENCE (IITY(1),ITY(1,1))                                    JJNAME      5
                                                                        JJNAME      6
c      INTEGER*4 ITY(3,NBUF)                                            JJNAME      7
c      COMMON /FILEHD/ ITY,JNAME,ITY1                                   JJNAME      8
c      DIMENSION IBUF(128),IID(NBUF),IITY(NBUF*3),JNAME(8,NBUF)         JJNAME      9
c      EQUIVALENCE (IITY(1),ITY(1,1))                                   JJNAME     10
C  ..                                                                   JJNAME     11
