logical function intrac() c logical intrac intrac = .false. return end