MODULE estab
      REAL, DIMENSION(15000:45000)  :: esat,es
      END MODULE