FORTRAN CODE FOR POWER LAW FLUID FLOW IN 2D CHANNEL

I recently became a member of the site. in this thesis, I focus on the non - newtonian fluid in lattice boltzmann method. one can extract theOpenSource Fortran code to simulate the POER LAW FLUID FLOW in the 2D channel in a lattice boltzmann method and give it to me?