Update fce_common.f90