Update constants.F90