improve mylib.f90
improve mylib.f90