Implicit Three-Point Block Numerical Algorithm for Solving Third Order Initial Value Problem Directly with Applications