procedure sigma ( w )
c
c*********************************************************************72
c
cc SIGMA is a procedure, which is not a kosher FORTRAN module type.
c
      real w

      w = w * 2

      end