Cascaded LBM

Hi
I am to write a Cascaded LBM in 2D. But I have some problems. Is there any simple code in fortran to handle?
Tnx