block data

!*****************************************************************************80
!
!! blockdata() is a blank block data routine.
!
  real :: x = 1.0
  common / morley / x

end