Parameter CTrans_funct.F