A method for the calculation of the adjoint function in cold neutron sources and its applications. (March 2020)