*     -*-fortran-*-

      logical Welcome
      character*4 InWelcome
*
      common / WelcomeMessageSwitchAPFEL / Welcome,InWelcome