blockdata enid

!*****************************************************************************80
!
!! enid() is a blockdata routine.
!
  real x
  common / smith / x
  save / smith /
  data x / 1.0 /

end