COMMON /WM5N/   WM5N, WM5N2
      REAL            WM5N, WM5N2