Corrected several errors: 1-r was twice invoked, **1/2. insted of **1/2