An innovative computer code for 1D seismic response analysis including shear strength of soils