Changing constants.F90 to constants.CUF