added Ue-Li's cube_pen.f90 code