C
C $Id: wrtcoor.F,v 1.3 1998/07/16 16:40:52 jjv5 Exp arjan $
C
C------------------------------------------------------------------------
      subroutine wrtcoor

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

C-RDC       write(icoor,'(10f8.3)')
C-RDC      &     (xyz(1,i),xyz(2,i),xyz(3,i),i=1,natoms)
C-RDC       write(icoor,'(10f8.3)') dbox(1),dbox(2),dbox(3)

      end