update root find in fortran