module FormDecay_m

  interface

    real function GeFormFactor(q2, decaytype)
       use genesis_m
       use f90_kind
       type(decay)          :: decaytype
       real(kind=double)    :: q2
    end function GeFormFactor

    logical function GeIsDalitzDecay(thisDecay)
       use genesis_m
       type(decay)          :: thisDecay
    end function GeIsDalitzDecay

  end interface

end module FormDecay_m