added gamma_source.f
added gamma_source.f