*     -*-fortran-*-

      character*5 Th
      character*4 InTheory
*
      common / TheoryAPFEL / Th,InTheory