complex function delta ( x )

!*****************************************************************************80
!
!! delta() is a complex function with type statement.
!
  complex x

  delta = x * x

  return
end