*     -*-fortran-*-

      integer ScVarProc
      character*4 InScVarProc
*
      common / ScVarProcAPFEL / ScVarProc,InScVarProc