test_h_problem_orig_pub.f90