double precision taa,tm,sfm0
      common/amf2/taa,tm(8,6),sfm0(8)