Pulmonary Fibrosis Causes Pulmonary Hypertension