program save_natorb read_wf = .True. touch read_wf call save_natural_mos call save_ref_determinant end