copied Ho_basis.f90 from other project
adda