#include "const.inc"
      DFLOAT bf_rot,bf_rotinv
      common /bf_rot1/
     & bf_rot(7,7),bf_rotinv(7,7)