SUBROUTINE SUBMON(A,LEN)
      INTEGER A(1),LEN,K,I
      K=(LEN+1)/2
      WRITE(20,100)(A(I),I=1,K)
  100 FORMAT(1X,5A2)
      RETURN
      END