*     -*-fortran-*-

      logical lock
      character*4 InLock
*
      common / LockGridsSwitchAPFEL / lock,InLock