Code and procedure updated.

Code and procedure updated.