An Automatic Algorithm for the Execution and Elaboration of Sonic Pulse Velocity Tests in Direct and Tomographic Arrangements