Lines Matching refs:IBIN
894 SUBROUTINE PT2TRA(CMO,P4T,P2,PHALF,IBIN,BIN,IBUF,BUF,IT,
913 INTEGER*8 IBUF(*), IBIN(*)
1029 CALL READDX(LUDA,IDISK,IRAT*LABUF,IBIN)
1030 IDISK = IBIN(LABUF)
1031 LENGTH = IBIN(LABUF-1)
1042 LABEL = IBIN(I)
1502 SUBROUTINE PSORT(IBUF,BUF,LBUF,IBIN,BIN,LDABUF,IPOINT,
1517 INTEGER*8 IBUF(*), IBIN(*)
1651 IBIN(LBIN(ICHAIN)) = 0
1652 IBIN(LBIN(ICHAIN)-1) = -1
1759 INUM = IBIN(LBIN(IBINO)) + 1
1761 IBIN(LIOFF(IBINO)+INUM) = ILOC
1762 IBIN(LBIN(IBINO)) = INUM
1764 CALL WRITDX(LUDA,IDISK,IRAT*LDABUG,IBIN(LISOFF(IBINO)+1))
1765 IBIN(LBIN(IBINO)) = 0
1766 IBIN(LBIN(IBINO)-1) = IDISK
1838 INUM = IBIN(LBIN(ICHAIN))
1840 CALL WRITDX(LUDA,IDISK,IRAT*LDABUG,IBIN(LISOFF(ICHAIN)+1))
1841 IBIN(LBIN(ICHAIN)-1) = IDISK
1844 LASTAD(ICHAIN) = IBIN(LBIN(ICHAIN)-1)
1885 CALL READDX(LUDA,IDISK,IRAT*LDABUG,IBIN)
1886 LENGTH = IBIN(LBIN(1))
1888 ILOC = IBIN(LIOFF(1)+I)
1891 IDISK = IBIN(LBIN(1)-1)