c sy$seedis:[seedis.map_routines]format.inc  8/24/94 dwm

  700 format(6(e13.6))

c Second FDIME header line
c 710 format(1x,f11.6,1x,f10.6,1x,i7,  4(1x,i10))
  710 format(1x,f11.4,1x,f10.4,1x,f7.2,4(1x,i10))

c Second FDIME header line
  720 format(3(1x,i7,1x,i1))
c Second FDIME header line, with chains and total area
 1720 format(4(1x,i7,1x,i1),i12,f20.8)

c------------------------------------------------------------

  730 format(1x,i1, 1x,i4,1x,i3,1x,i6,1x,i5,1x,i7, 4(1x,i10))
  740 format(1x,i1, 1x,i4,1x,i3,      1x,i5,1x,i7, 4(1x,i10))
  750 format(1x,i1, 1x,i4,            1x,i5,1x,i7, 4(1x,i10))
  755 format(1x,i1, 1x,i4,1x,i3,1x,i3,1x,i6,1x,i5,1x,i7, 4(1x,i10))

  760 format(     2(1x,i4,1x,i3,1x,i6,1x,i5,1x,i7),4(1x,i10))
  770 format(     2(1x,i4,1x,i3,      1x,i5,1x,i7),4(1x,i10))
  780 format(     2(1x,i4,            1x,i5,1x,i7),4(1x,i10))
  785 format(     2(1x,i4,1x,i3,1x,i3,1x,i6,1x,i5,1x,i7),4(1x,i10))

c NICKEL records
  790 format(       1x,i4,1x,i3,1x,i6,1x,i5,1x,i7, 4(1x,i10))
  800 format(       1x,i4,1x,i3,      1x,i5,1x,i7, 4(1x,i10))
  810 format(       1x,i4,            1x,i5,1x,i7, 4(1x,i10))
  815 format(       1x,i4,1x,i3,1x,i3,1x,i6,1x,i5,1x,i7, 4(1x,i10))

c FDIME polygon record (level tract, tract80)
  820 format(1x,i7, 1x,i4,1x,i3,1x,i6,1x,i5)
c FDIME polygon record (level county, county80)
  830 format(1x,i7, 1x,i4,1x,i3,      1x,i5)
c FDIME polygon record (level state, nation80)
  840 format(1x,i7, 1x,i4,            1x,i5)
c FDIME polygon record (level npoly80)
  845 format(1x,i7, 1x,i4,1x,i3,1x,i3,1x,i6,1x,i5)
c FDIME polygon record (level tract, tract80) with # segments, area
 1820 format(1x,i7, 1x,i4,1x,i3,      1x,i6,1x,i5,i7,i12)
c FDIME polygon record (level county, county80) with # segments, area
 1830 format(1x,i7, 1x,i4,1x,i3,            1x,i5,i7,i12)
c FDIME polygon record (level state, nation80) with # segments, area
 1840 format(1x,i7, 1x,i4,                  1x,i5,i7,i12)
c FDIME polygon record (level tract, tract80) with # segments, area
 1845 format(1x,i7, 1x,i4,1x,i3,1x,i3,1x,i6,1x,i5,i7,i12)

c------------------------------------------------------------
c FDIME coordinate record
  850 format(1x,i7,                2(1x,i10))
c FDIME coordinate record with # segments (changed 5/19/92)
 1850 format(1x,i7,                2(1x,i10),i3)

c FDIME segment record 
  860 format(1x,i7,2(1x,i10,1x,i7),2(1x,i10))
c FDIME segment record with area
 1860 format(1x,i7,2(1x,i10,1x,i7),2(1x,i10),i12,i7,i3,i6,2i8)

c FDIME chain record
 1865 format(1x,i7,2(1x,i10),2(1x,i10),1x,i7,i12)

c used by edime_point_reduction
  870 format(1x,i10,2(1x,i7),1x,i11,2(1x,i7),3(1x,i11))
c i1 = ID of point to be removed
c i2,i3 = IDs of two adjacent segments
c ia = 2*abs(area) of triangle
c i6,i7 = IDs of the two adjacent polygons (not used)
c i8 = min(2*abs(area)) from both adjacent polygons
c i9 = 10e-9 * ia/i8 (parts per billion)
c i10 = squared length of segment to be added (dx**2 + dy**2)

  880 format(2(i10))
  890 format(5(1x,i10))

  900 format(1x,i10,            2(1x,A21))
  910 format(1x,i10,1x,i5,1x,i7,2(1x,A21))
  920 format(12x,      i5,1x,i7,4(1x,i10))

  930 format(1x,i2,i3,i6,i8)