c create proe format
      implicit real*8(a-h,o-z)
      character*11 filnam
      integer, parameter :: nsteps = 248,  npts = 7
      real*8, dimension(3,nsteps,npts) :: xyz
c
      do i=1,nsteps
      read(*,*) ((xyz(k,i,j),k=1,3),j=1,npts)
      enddo
!      xyz=xyz/.0254
      do i=1,nsteps
      write(*,"(21f10.4)") ((xyz(k,i,j),k=1,3),j=1,npts)
      enddo
c
      do ifile=1,npts
      write(filnam,"('trace',i2.2,'.ibl')") ifile
      open(unit=6,file=filnam,status="replace")
      write(6,*) "closed"
      write(6,*) "pointwise"
      write(6,*) "begin section"
      write(6,*) "begin curve"
      do i=1,nsteps
      write(6,"(10x,i5,3f15.6)") i, (xyz(k,i,ifile),k=1,3)
      enddo
      enddo
c
      stop
      end