Create block_aver.f90