Griffin Lim (or similar) in SC?

Are there any implementations of the Griffin Lim algorithm in scsynth? Something that could run in real time?

Or perhaps other phase estimation approaches?

Thanks!

T