compile source.f