C SUB-RTN LIST OUTPUT(INTERNAL-SORT)
      SUBROUTINE OUT
      DIMENSION INP(2100),IOP(2100),IOB(2100)
        COMMON INP,IOP,IOB
      ICC=1
302   ITC=ICC+11
      WRITE(4,2)(INP(L),L=ICC,ITC)
      WRITE(4,2)(IOB(L),L=ICC,ITC)
2     FORMAT(12I6)
      IF(INP(ITC))300,301,300
300   ICC=ICC+12
      GO TO 302
301   RETURN
      END