c     begin include file cconsts.inc

c     + + + COMMON BLOCK DESCRIPTION + + +
c     + + + INSERT DESCRIPTION HERE  + + +

      common /consts/   a1,a2

c     + + + VARIABLE DECLARATIONS + + +

      real              a1,a2

c     + + + VARIABLE DEFINITIONS + + +

c     a1 : coefficient = m*alpha
c     a2 : coefficient = m-1

c     end include file cconsts.inc