C
C $Id: printsub.F,v 1.2 1998/07/16 16:40:24 jjv5 Exp arjan $
C
C------------------------------------------------------------------------
      subroutine printsub(igsub, k1, igsub1, k2, igsub2,
     &     k3, igsub3)

      implicit double precision(a-h,o-z)
#include "divcon.dim"
#include "divcon.h"

      dimension igsub1(*), igsub2(*), igsub3(*)

      write(iout,'(/" SUBSYSTEM ",I4,
     &     /" --------------",
     &     /" CORE ATOMS:")') igsub
      write(iout,'(16I5)') (igsub1(i),i=1,k1)
      if(k2.gt.0) then
         write(iout,'(" INNER BUFFER LAYER:")')
         write(iout,'(16I5)') (igsub2(i),i=1,k2)
      endif
      if(k3.gt.0) then
         write(iout,'(" OUTER BUFFER LAYER:")')
         write(iout,'(16I5)') (igsub3(i),i=1,k3)
      endif
      write(iout,*)

      end