only program2.f90