You can solve for it using FindRoot:
In[3]:= FindRoot[Abs[TFalpha1[I f]] == .54, {f, 10000}] Out[3]= {f -> 23219.9}
Thank you so much. Regards, Koushik
