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

  delta = x * x

  return
end