procedure sigma ( w )
!
!*****************************************************************************80
!
!! SIGMA is a procedure, which is not a kosher FORTRAN module type.
!
  real w

  w = w * 2

end