Trying to make the PAR function work
PAR works, tpar calculated, working for other par values