*     -*-fortran-*-
*
*     Was APFEL initialized?
*
      character*4 InAPFELDIS
*
      common / InitalizationAPFELDIS / InAPFELDIS