SUBROUTINE STORE (X)
      COMMON /VALUE/  V
      V = X
      RETURN
      END